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PAPERCLIP 

"The " 1 Best Selling Word Processing 

Package" 

- BILLBOARD'S computer software chart 

"... by far the best word processor ever 
available for the Atari" - ANTIC 

■ Editing features include Block Move, 
Copy and Delete, Global Search and 
Replace 

■ Enter repetitive words, sentences, or 
paragraphs instantly with Macro Command 

■ Edit two files simultaneously and 
transfer text between documents using 
Dual Text Windows 

■ Automatic Page Numbering, Table of 
Contents, Headers and Footers 

■ Editing screen extends up to 130 
columns wide and scrolls in any direction 

■ Print Preview displays formatted text 
exactly as it will be printed 

■ Automatically saves files as you write 
NEW! SPELL PACK FOR THE 130XE 
WITH A 36,000 WORD DICTIONARY 
WITH ON SCREEN WORD SEARCH. 

B/GRAPH 

"Graph-generating and statistical analysis 
...we recommend B/Graph! - INFOWORLD 

■ graph up to three factors with 100 data 
points each 

■ choose pie charts, line and area graphs, 
2 and 3 dimensional bar charts and more 

■ convert instantly between graph types 
without re-entering data 

■ full screen editor, multiple grid and 
graph scaling, automatic labelling, 
overlays, "slide show" capability 

■ statistical analysis functions include 
standard deviation, variance, Chi-square, 
regressions, plotting and many more 

■ reads and writes to VisiCalc D1F - use 
VisiCalc files with B/Graph and vice-versa 

■ compatibile with most popular printers, 
printer cards, interfaces 




HOMEPAK 

". . . inexpensive, powerful, integrated 
software. As such, HomePak is the winner of 
InfoWorld's Best Buy Award." 
- INFOWORLD MAGAZINE 

". . .quite simplv. the best . . . the highest 
rating possible " - ANALOG COMPUTING 

Three easy-to-use programs on one disk: 

1. HOMETERM TELECOMMUNICATIONS 

■ Puts you in touch with bulletin boards, 
public databases and on-line services 

■ Powerful user-defined Macro facility - 
log on to your favorite service or bulletin 
board with just one command 

■ Store up to 10 macros per document 

■ X-Modem protocol, the virtual on-line 
standard 

■ Download files of any virtually any 
length 

■ Flexible data handling - save incoming 
text to disk, edit it, print it 

2. HOMETEXT WORD-PROCESSOR 

■ Over 20 full-screen editing and 
formatting features: move & copy, 
word-wrap, justification, automatic paging 
and many more 

■ What You See Is What You Get 
(WYSIWYG) - screen is an exact 
representation of the printed page 

■ Supports most major printer functions 
including boldface, underlining and 
extended characters 

3. HOMEFIND DATABASE MANAGER 

■ Natural English-language data 
entry/retrieval system for simplified 
electronic filing 

■ Includes the key search/sort functions, 
flexible queries, easy output commands 
and sophisticated Report Composer 

All three HomePak programs reside in 
memory together - it's easy to transfer 
data between them and perform integrated 
tasks. 



AND FOR THE ATARI ST. 



•*i* e 




AND COMING SOON: PAPERCLIP ELITE. CONSULTANT, B/ GRAPH ELITE, BTS, THE SPREADSHEET, AND MORE! 
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BATTERIES 
INCLUDED 



BATTERIES INCLUDED, an 1TM company, 30 Mural Street, Richmond Hill, Ontario, Canada, LIB 1B5 (416)881*994 1, Customer Information (416)881-9816. 

If you can't find this product at your local retailer, you may order it direct from us at the full suggested list price plus $5-00 for postage and handling. For 

product orders please call I -800-387-5707 ( U.S. only). For most Batteries Included products you can always have the latest version of your program by 

returning the original disk and $ 10.00. Write to us for our ful I color catalog of products for the APPLE, APPLE MACINTOSH, ATARI, ATARI ST, 

COMMODORE, COMMODORE AMIGA, AND IBM SYSTEMS. 

G 1986 Batteries Included. APPLE, APPLE MACINTOSH, ATARI, ATARI ST, COMMODORE, COMMODORE AMIGA, AND IBM are registered trademarks 

respectively of APPLE COMPUTERS INC., ATARI CORPORATION, COMMODORE BUSINESS MACHINES INC., AND INTERNATIONAL BUSINESS MACHINES INC. 

Some features may vary with computer system used. 
V\.S(OMI , ll>:[)™()MNAIlt)^Al.ki:TAII..SAIi5K£K)ir^K()KWFKKK.NDIN(;.IA 1 M!AHVr,. 1985 
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This volume, from the publishers of ANALOG 
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users everywhere, and to the readers who have 
contributed so much to our success and to the 
Atari Adventure. 



Copyright-© 1987 ANALOG 400/800 Corp. 

All rights reserved. 

No portion of this book may be reproduced in any form without the written permission of trie 
publishers. Most programs are copyrighted and are not public domain. 

Printed in the United States of America. 
ISBN #0-914177-01 -X 

ANALOG Computing magazine (ANALOG 400/800 Corp.) is in no way affiliated with Atari. Atari is a trademark of Atari Corp. 



CONTENTS 



APPLICATIONS 



GAMES 



GENERAL 



GRAPHICS 



TUTORIALS 



UTILITIES 



4 M/L Editor Clayton Walnum 

The machine language typing checker for use with programs in this volume. 

7 Hi-Score Display Kevin Peck 

Here's a handy program to record your scores for posterity. 

15 Create-a-base C.F. Fogarty, III 

The perfect "groundwork" for you to design databases to fit your own needs. 

27 Squeeze David Plotkin 

Keep the advancing bricks from taking over in this fast Action! game. 

31 Surface Run David Plotkin 

This tutorial-and-game will help you see what Action! can do for your programs. 

37 Spy Plane III Mark Comeau 

Takes our original one step further. Can you save the world this time? 

43 Reversi Paul T. Sprague 

This Action! strategy game lets you choose from three modes of play. 

49 Lawn Mower Paul Tupaczewski 

Keeping Atariville neat isn't easy. You'll need land mines just to keep ahead. 

53 Trivia Jan Iverson 

This how-much-esoterica-do-you-know? game lets you design your own versions. 

63 Invasion III Jerry Lemaitre 

As an Anthort, you'll use mystic Fyreballs to keep your planet from alien destruction. 
65 Dragon Chase David Huff 

Quick reflexes won't be enough to win your lady; dig into your inner resources. 

69 Krebs removal Chuck Rosko 

You must scrub the reactors clean of fission-inhibiting krebs in time to avoid meltdown. 

75 Integer BASIC Barry Green 

This program teaches your XL BASIC integer math, for more speed. 

81 Tactics Dave Pettit 

The compleat resource: how to become a Star Commander Class 1. 

91 Pastels David Plotkin 

This Action! program will mesmerize you with its ever-changing pastel tints. 

93 CGM David Castell 

Castell's Graphic Manager— windows, icons and trackers in a GEM-like interface. 

107 Display List Mod Mark Andrews 

How to use more than one graphics mode on-screen, plus a demo title screen. 

113 A Pointed Note Barbara Donovan 

Tailored file management programs are easy, with this POINT and NOTE tutorial. 

121 Password Jim Ehninger 

Here's a simple-to-use way to bar most unwelcome visitors from your files. 

125 Dump 1020 Donald E. Glover 

A screen dump routine for the Atari 1020 printer and examples of its use. 

129 Easy Type Gary Heitz 

Programmable and programmed keys, to make typed-in listings more accurate. 



UTILITY 







M/L Editor 



For use in machine language entry 



by Clayton Walnum 



M/L Editor provides an easy method to en- 
ter our machine language listings. It won't al- 
low you to skip lines or enter bad data. For 
convenience, you may enter listings in mul- 
tiple sittings. When you're through typing a 
listing with M/L Editor, you'll have a com- 
plete, runnable object file on your disk. 

There is one hitch: it's for disk users only. 
My apologies to those with cassette systems. 

Listing 1 is M/L Editor's BASIC listing. 
Type it in and, when it's free of typos, save 
a copy to disk, then run it. 

On a first run, you'll be asked if you're 
starting a new listing or continuing from a 
previously saved point. Press S to start, or 
C to continue. 

You'll then be asked for a filename. If you're 
starting a new listing, type in the filename 
you want to save the program under, then 
press RETURN. If there's already a file by that 
name on the disk, you'll be asked if you wish 
to delete it. Press Y to delete the file, or N 
to enter a new filename. 

If you're continuing a file, type in the name 
you gave the file when you started it. If the 
program can't find the file, you'll gel an er- 
ror message and be prompted for another file- 
name. Otherwise, M/L Editor will calculate 
where you left off, then go on to the data en- 
try screen. 

Each machine language program in ANA- 
LOG Computing is represented by a list of 
BASIC data statements. Every line contains 
16 bytes, plus a checksum. Only the numbers 
following the word DATA need be con- 
sidered. 

M/L Editor will display, at the top of the 
screen, the number of the line you're current- 
ly working on. As you go through the line, 
you'll be prompted for each entry. Simply 
type the number and press RETURN. If you 
press RETURN without a number, the default 
is the last value entered. 

This feature provides a quick way to type 
in lines with repetitions of the same number. 
As an added convenience, the editor will not 
respond to the letter keys (except Q, for 
"quit"). You must either enter a number or 
press RETURN. 



When you finish a line, M/L Editor will 
compare the entries' checksum with the 
magazine's checksum. If they match, the 
screen will clear, and you may go on to the 
next line. 

If the checksums don't match, you'll hear 
a buzzing sound. The screen will turn red, 
and the cursor will be placed back at the first 
byte of data. Compare the magazine listing 
byte by byte with your entries. If a number's 
correct, press RETURN. 

If you find an error, make the correction. 
When all data's valid, the screen will return 
to grey, and you'll be allowed begin the next 
line. 

Make sure you leave your disk in the drive 
while typing. The data is saved continuously. 

You may stop at any time (except when you 
have a red screen) by entering the letter Q for 
byte #1. The file will be closed, and the pro- 
gram will return you to BASIC. When you've 
completed a file, exit M/L Editor in the same 
way. 

When you've finished typing a program, 
the file you've created will be ready to run. 
In most cases, it should be loaded from DOS 
via the L option. Some programs may have 
special loading instructions; be sure to check 
the program's article. 

If you want the program to run automati- 
cally when you boot the disk, simply name 
the file AUTORUN.SYS (make sure you have 
DOS on the disk). 

That's M/L Editor. Use it in good health. H 



The two-letter checksum code preced- 
ing the line numbers here is not a part 
of the BASIC program. For further in- 
formation, see the BASIC Editor II, in 
issue 47. 



Listing 1. 
BASIC listing. 



AZ 16 DIH DF(16>.HS(4>,A$C1),B$(1),F$U5) 

,FlStl5) 
LF 11 DIH K0D$(4] 

BN 26 l.IME = lB08:nETRM = 155:BACKSP = i26:CHKS 

UH=8:EDIT=B 
GO 38 GOSUB 458:P05niOH 18,6:? "Start or 
Continue? ";:GOSUB see:? CHRSCAl 



ZG 48 POSITION 18,8:? "FILEMANE"; :INPUT F 

SsPOKE 752,1!? " " 
FE 50 IF LENCFSXI THEN POSITION 20,10:? 

" ":G0T0 48 
NF 60 IF FSCl,2JO"D:" THEN Fl$="D:":FlS C 

3)=F$:G0T0 80 
KL 70 F1$=F$ 

TN 88 IF CHR$(A)="S" THEN 120 
FD 38 TRAP 430:0PEN K2.4 ,0, Fl$ : IRAP 118 
HO 188 FOR X=i TO 16:GET H2,A:NEXT X:LINE 

=LINE»18:G0T0 100 
HM 110 CLOSE tt2:0PEN t)2,9,0,Fl$ :G0T0 178 
UT 120 TRAP 160:0PEN H2,4,8,F1$ : GOSUB 448 

: POSITION 10,10:? "FILE ALREADY EXISTS 

■!":P0KE 752,8 
ZU 138 POSITION 18,12:? "ERASE IT? "; :G05 

UB 588:P0KE 752,1:? CHRSCO) 
UH 140 IF CHRStA)="N" OR CHRS CAJ-"n" THEN 

CLOSE tt2:G0T0 38 
OG 150 IF CHRS(A)<>"Y" AND CHR$ (A) <>"«*" T 

HEN 130 

BH 160 CLOSE H2:0PEN H2,8,0,F1$ 

IE 170 GOSUB 458:P0SITI0N 10,1:? " L'lilfilM 

SETJ: ";LIHE:CHKSUH=e 
GH 188 L1=3:F0R X=l TO 16:P05ITI0N 13«CX< 

18)tl2K(X>9),X+2:P0KE 752,8:? "BYTE H" 

;X;": "; :G0SUB 310 
KH 198 IF EDIT AND L=8 THEN BYTE=BF CX> :G0 

TO 210 
FY 200 BYTE=UALCNS) 
OZ 281 M0DS=NS 

BU 210 POSITION 22.X+2:? BYTE;" " 
YZ 220 BF(X)=BYTE:CHKSUM=CHKSUH«BYTE«X:IF 

CHK5UH>9999 THEN CHK5UM=CHK5UM-18008 
MS 238 NEXT X :CHKSUM-CHK5UM+LINE :IF CHK5U 

H>9999 THEN CHKSUH=CHKSUH-1800B 
IG 240 POSITION 12,X+2:P0KE 752,8:? "CHEC 

KSUM: "; :L1=4:G05UB 310 
EH 250 IF EDIT AND L=0 THEN 270 
OH 260 C=VAL(N$) 

SY 270 POSITION 22.X+2:? C:" " 
IL 288 IF CZCHKSUM THEN 308 
DI 298 GOSUB 440 : EDIT=1 : CHKSUM=0 : GOTO 188 
LH 388 FOR X=l TO 16-.PUT U2.BF (XI :NEXT X: 

LIHE=LINE+18: EDITHS: GOTO 170 
FV 310 L=0 
LG 320 GOSUB S80:IF A=A5C("0") AND K:l AN 

D NOT EDIT THEN 420 
PO 338 IF AORETRN AND AOBACKSP AND (A<4 

8 OR A>57> THEN 328 
DX 331 IF A=RETRN AND N$="" THEN N$=M0D$ 
TD 335 IF A=RETRN AND L=0 AND X>1 THEN 35 


JR 340 IF ((A=RETRN AND NOT EDIT) OR A=B 

ACK5PJ AND L=0 THEN 320 
DM 350 IF A=RETRN THEN POKE 752,1:? " ":R 

ETURN 
GG 360 IF AOBACKSP THEN 400 
5A 370 IF L>1 THEN N$=N$(1,L-1) :G0T0 390 
AS 380 NS="" 

BE 390 ? CHR$(BACKSPl;:LrL-l:GOTO 328 
BB 480 L=L+1:IF L>L1 THEN A=RETRN:G0T0 35 


KX 410 N$(L)=CHR$(A> :? CHRS (A) i : GOTO 320 
KN 420 GRAPHICS 0:EHD 
YT 438 GOSUB 448:P0SITI0N 18,10:? "NO SUC 

H FILE!":F0R X=l TO 1000: NEXT X: CLOSE 

112: GOTO 30 
FD 440 POKE 7ie,48:S0UND , 188 , 12 , 8 :F0R X 

=1 TO 58:NEXT X:S0UND 8 , , , B : RETURN 
HY 450 GRAPHICS 23:P0KE 16,112:P0KE 53774 

,112:P0KE 559,e:P0KE 716,4 
XR 460 DL=PEEK(568)«256«PEEK(561)+4:P0KE 

DL-1,7B:P0KE DL«2,6 
I1H 470 FOR X=3 TO 39 STEP 2:P0KE 0L«X,2:N 

EXT XSFOR X=4 TO 40 STEP 2:P0KE DL+X.8 

• UEXT X 
ZH 488 POKE OL+41, 65 :P0KE DL«42 , PEEK (568) 

:P0KE DL«43,PEEK<561) :P0KE 87,8 

AC 490 POSITION 2,8:? "analog nl editor": 

POKE 559,34:RETURN 
HZ 588 OPEN ttl,4,0,"K:":GET ttl,A:CLOSE nl 

: RETURN 
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Hi-Sco^ 









to 



by Kevin Peck 



I play a lot of games on my Atari. I used to keep a sheet 
of paper at the computer desk, to jot down my high scores. 
When things got crowded, I would write the current high 
scores on a new paper and keep that one, until it too be- 
came nearly impossible to read. Not anymore. I stopped 
playing games long enough to write a custom database for 
my high scores, one that will print out a clean list any time 
I wish. It's a lot easier to read now. 

To use Hi-Score Display, you'll need to type in Listing 
1, then check it with the BASIC Editor II (see ANALOG 
Computing issue 47) . Listing 1 will create four strings con- 
taining the machine language routines used in the pro- 
gram. Save the program to disk before running it, because 
it will erase itself from memory, leaving the newly creat- 
ed lines. These will be the only lines in memory. Enter 
BASIC Editor II into memory and type in Listing 2. After 
you've finished, you'll have the complete Hi-Score pro- 
gram. Save it to disk at this time. 

You'll need nineteen free sectors in single density, or 
ten in double density, to run the program. These sectors 
are necessary for the actual game data. The size of the data 
file, GAME. DAT, will never change. It's set up to hold a 
maximum of forty-two games, with three scores per game. 
You'll never have to worry about booting the program 
without enough disk space to add new scores. 

When you first run the program, it will create the blank 
file GAME. DAT on the disk. This will take a few moments, 
and will only occur the first time you run the program. 
After the data file is created, the main menu will appear. 

Next to the words OPEN and USED are two numbers. 



The number beside OPEN will be 42, and the number next 
to USED will be 0. This means that no scores have been 
entered; all forty-two are unused. The number next to 
OPEN will decrease as you add games to the list; the num- 
ber next to USED will increase. These two numbers ad- 
ded together will always equal 42, the maximum number 
of games per disk that the program can handle. 

At this point, you're presented with six options. Right 
now, we have no games in our list, so we need to add 
some. We press the 1 key, for "Add New Games and 
Scores." 

After pressing 3, you'll see the score entry screen. You'll 
be asked to enter the program name, which may be up to 
fourteen characters long. If you accidentally pressed 1 
while in the main menu, and you really don't want to add 
any games to the list, then press RETURN to get back to 
the main menu. 

Back to adding games and scores. . .enter the program 
name, then press RETURN. You may use any characters 
you want, but the name must fit between the two arrows 
above your typing area. If you try to type beyond the 
fourteen-character limit, the program will ignore all ex- 
tras. Of course, the name can be less than fourteen 
characters. 

After typing the program name, you'll be asked for the 
score. You're allowed three scores per game, and you may 
enter them in any order. The program will sort them after 
you've entered all three. Scores may be up to six digits 
long, which allows for scores in the hundred-thousands. 
I know of few games that go into millions of points, so 
this should be more than adequate. The program will al- 
low no more than six numbers for this entry, ignoring non- 
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^ Hi-Score 



continued 



numeric characters and commas, which it places automa- 
tically. 

The next data item is the game level at which you ob- 
tained the score. Not all games have levels, so you may 
just press RETURN to leave this field blank. You're allowed 
two characters for the level, and only numbers are allowed. 

Next, you'll be asked to enter the name of the person 
who attained this score. The name is limited to five charac- 
ters, but they may be whatever you wish. Five characters 
allows for two initials, the ampersand (&) and two more 
initials, for those times when two players cooperated to 
get the score (five also happens to be the length of my first 
name). You don't need to enter all five characters. You may 
want to stick to three, as most arcade games do. 

You must enter at least one score per game. Hi-Score 
will then prompt you to enter the second score. If you don't 
wish to enter a second, press RETURN. If you do enter 
the second score, you'll be prompted for the third. 

Now that you've entered all the data for this game, you 
have three choices. You may press the O key if all infor- 
mation is okay. You may press A to abort this game. When 
you hit A, you'll be asked if you're sure you want to abort. 
If you press Y, this game won't be added to the list, and 
you'll be asked if you have other games to add. 

If you decide some of the information is incorrect, press 
the C key, to correct the errors. The numbers 1-4 will ap- 
pear on the right edge of the screen, indicating various 
pieces of information. If you don't wish to correct any of 
the information, press the key; otherwise, press the 
number (1-4J that corresponds to the area you want to cor- 
rect. If you do correct one of the scores, you'll have to en- 
ter all three pieces of data for that score. Press the when 
finished, and the scores will be sorted. 

After pressing either the A or the O, you'll be asked if 
you have more entries. If you do, press the Y, and the 
screen will clear for your next entry. If you're done enter- 
ing games, press the N key. All games will be sorted by 
game name, then saved to disk. When this is done, you'll 
return to the main menu. 

Now that we have some games in our data file, we can 
explore some of the other options on the main menu . Let's 
go through the rest of the options, in the order they ap- 
pear on the screen. 

Option 2 allows you to update the scores of any games 
on file. After pressing 2, you'll be presented with the game 
selection screen. All games currently on file will be list- 
ed to the screen. If you have more than twenty-one games, 
they'll appear in two columns. Valid keystrokes are shown 
at the bottom of the screen. Press the X key if you wish 
to return to the main menu without making any changes. 

To select a game to update, move the arrow to the prop- 
er name by pressing the arrow keys without holding down 
the CTRL key. 

When you've selected the game you wish to update, 
press RETURN. The game selected will appear at the bot- 
tom of the screen, and you'll be asked to verify your 
choice. Remember, you may press X at any time during 
the selection process, to abort the operation and return 
to the main menu. 



Once you've verified your choice, a new screen will ap- 
pear, showing the game's current scores. You'll be asked 
for the new score. If you decide not to update the scores 
after all, press RETURN. The new score doesn't have to 
be a new high score, but it must be greater than the third 
score on the list. If there is no third score, any score will 
be accepted. 

After entering the new score, the Hi-Score program will 
check to be sure it's eligible. If not, you'll be asked if you 
want to re-enter the score or abort the update process. 
Press the letter of your choice. 

If the score is valid, you must enter the level and the 
name of the person who obtained the score. 

After entering the information, you'll have three op- 
tions: O for okay, R for re-enter and A for abort. If you 
abort, you'll be asked to confirm with a Y or an N. 

When the new score is correct, press O for okay. Hi- 
Score will ask if you have more scores to update. If you 
do, press Y. If not, press N. The new information will be 
written to disk, then you'll return to the main menu. 

Option 3 allows you to delete a game from the list. Af- 
ter selecting the game to delete, you'll be shown the scores 
on the screen. Type the word DELETE at the prompt. Any 
other entry, including a RETURN alone, will abort the de- 
letion process. If you delete the game, you'll be asked if 
you have more to delete. If not, the disk file will be up- 
dated, and you'll return to the main menu. 

Option 4 on the main menu allows you to view your 
scores, six games at a time. The game names will be in 
inverse video, to set them apart from the scores. There are 
three valid keystrokes at this point. They are: M for menu, 
P for previous screen and N for next screen. 

If you're viewing the first screen of data and have more 
than six games on file, the N will appear on-screen, in- 
forming you that there's more data in the file. You may 
press the N key to view the next screen of scores. 

The P key option will never appear on the first screen 
of data — there's no previous screen. It will appear on the 
second screen of data and beyond. The N will disappear 
on the last screen. Press the M key at any time to return 
to the main menu. 

Option 5 on the main menu presents you with a new 
menu of four options. All options from this menu will send 
output to the printer. 

The program will ask if you're using a 40- or 80-column 
printer. I added this option for ease of use with the Atari 
1020 plotter. Most users will press E, to select 80-column 
print. All printed reports will fit on a single 8V;>xll-inch 
sheet of paper. 

The next screen will show you the function selected and 
ask you to check the printer. To cancel the option, hit A 
for abort. If you're ready to print, press P. After the print 
is complete, you'll be returned to the print menu. You may 
choose another print function, or return to the main menu, 
where the final option is "Exit Program." 

Technical notes. 

I wrote four machine language routines for use in Hi- 
Score Display. One changes a string of characters to in- 
verse video. One fills lines on the screen with a chosen 
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character. The third pulls game names from the main data 
string for fast display on the select game screen. The fi- 
nal routine is a general-purpose, multi-key sort program. 
I used the CIO routines presented in ANALOG Comput- 
ing's issue 13 for the high-speed disk reads and writes. 
I also wrote a custom input routine for use throughout this 
program. 

The only place the screen colors are altered is in Line 
10, so you may use any colors you like by changing the 
POKE values. Since Hi-Score has custom input routines, 
there's no keyclick on any of the inputs. If this bothers you, 
you'll have to add some SOUND statements to the input 
routines in Lines 20-200. 

I've been using Hi-Score for over a year, making im- 
provement as I went along. I hope you'll enjoy it. fi 

Kevin Peck is currently in studying Computer Science. 
He's been working on Atari's for four years, and is in the 
process of reading every book on Atari machine language 
he can get his hands on, in the hope of writing an all- 
machine-Janguage game. 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 



01 
SP 
MB 
BC 

US 
XJ 

F5 
IL 

YC 
CA 

OF 

HO 
US 

ZI 
IF 

VB 
MS 
NA 

TJ 

DV 

RC 

LN 



40 FOR 1=1 
$CAJ; :NEXT 



Listing 1. 
BASIC listing. 



10 GRAPHICS 0:P0KE 82,2:P0KE 710,145 

20 ? :? :? "NEW":? :? 

30 ? "3730 LF$=";CHR$C34J ; 

TO 59:READ A:? CHR$C27J;CHR 

I:? CHR5I343 
50 ? "3740 SP$=";CHR$C34J ; 
60 FOR 1=1 TO 80:READ A:? CHR$ t27J ; CHR 
$IA};:NEXT I:? CHR$C34J 
70 ? "3750 SP$C81)=";CHR$t34) ,' 
80 FOR 1=81 TO 165: READ A:? CHR$ C27) ; C 
HR$CA);:NEXT I:? CHR$C34J 
90 ? "3760 RV$="JCHR$C34> ; 
lOO FOR 1=1 TO 2HREAD AS? CHR$ 1273 J CH 
R$CAJ;:NEXT Ii? CHR$(34J 
110 ? "3770 MKS$=";CHR$t343 ; 
115 FOR 1=1 TO 80:READ A:? CHR$C27J;CH 
R$tA);:NEXT I:? CHR$C34) 
120 ? "3780 MKS$C81J=";CHR$C34J ; 
130 FOR 1=81 TO 160:READ A:? CHR$C27)j 
CHR$CA) ; :NEXT I:? CHR$C34) 
140 ? "3790 MKS$C161)="jCHR$C34) j 
150 FOR 1=161 TO 192:READ A:? CHR$ 127) 
;CHR$fAJ ; :NEXT I:? CHR$C34) 
160 ? "POKE 842,12:GR.0:L. n 
170 POSITION O,0:POKE 842,13:ST0P 
2000 DATA 104,104,101,89,133,207,24,10 
4,101,88,133,206,144,2,230,207 
2010 DATA 104,104,170,104,104,133,203, 
104,104,133,204,104,104,133,205,160 
2020 DATA 0,165,205,145,206,200,196,20 
4,208,249,202,208,1,96,24,165 
2030 DATA 206,101,203,133,206,144,232, 
230,207,208,228 
2040 REM * 59 BYTES 



PZ 3O0O DATA 104,104,133,206,104,133,205, 

104,104,133,208,104,101,89,133,204 
IZ 3010 DATA 24,104,101,88,133,203,144,2, 

230,204,104,104,133,207,104,104 
KS 3020 DATA 133,209,104,104,170,160,0,24 

,177,205,201,244,176,24,201,160 
AF 3030 DATA 176,17,201,128,176,8,201,96, 

176,12,201,32,176,5,24,105 
HH 3040 DATA 64,144,3,56,233,32,145,203,2 

00,196,209,208,218,282,208,1 
XI 3050 DATA 96,24,165,205,101,208,133,20 

5,144,2,230,206,24,165,203,101 
LE 306O DATA 207,133,203,144,192,230,204, 

208,188 
YJ 3O70 REM * 105 BYTES 
ZX 4000 DATA 104,104,133,213,104,133,212, 

160,0,177,212,9,128,145,212,200 
RR 4010 DATA 192,16,208,245,96 
FZ 4O20 REM * 21 BYTES 
ZQ 500O DATA 216,104,104,133,206,104,133, 

205,104,133,215,104,133,214,104,104 
WL 5010 DATA 133,203,104,104,133,207,24,1 

01,203,133,216,104,104,133,208,104 
DP 5020 DATA 104, 133, 224, 24, 101, 208, 133, 2 

09,104,104,133,204,104,104,133,225 
HT 5030 DATA 165,215,133,1,56,165,214,229 

,204,133,0,176,2,198,1,24 
HT 5040 DATA 165,206,133,213,165,205,101, 

204,133,212,144,2,230,213,164,207 
IV 5050 DATA 177,205,209,212,240,4,144,53 

,176,28,200,196,216,208,241,165 
DX 5860 DATA 208,240,46,164,224,177,205,2 

09,212,240,4,144,32,176,7,200 
IY 5070 DATA 196,209,208,241,248,27,165,2 

25,288,23,160,0,177,205,72,177 
LY 5080 DATA 212,145,205,104,145,212,200, 

196,204,208,241,240,4,165,225,208 
PT 5090 DATA 233,24,165,212,101,204,133,2 

12,165,213,105,0,133,213,197,215 
ZK 5100 DATA 208,172,165,212,197,214,208, 

166,24,165,205,101,204,133,205,165 
UX 5110 DATA 206,105,0,133,206,197,1,208, 

134,165,205,197,0,208,128,96 
AV 5120 REM * 192 BYTES 



Listing 2. 
BASIC listing. 

GOSUB 3700:P0KE 709,C0:P0KE 710,156 

KE 82,C2:P0KE C752,C1:P0KE 712,144: 

340 

pp=ci:A$=" ,, :A$tl4)=" ":A$tC2J=A$:? 

_*"; 

POKE 702,C64iP0KE 694,C0:GET »C1,A: 

A>90 AND A<>126 AND A<>155 THEN 30 

IF A<32 OR tA=32 AND PP=C1J THEN 30 

IF A=155 THEN ? " " : A$=A$ tCl, PP) : RE 

N 

IF A = 126 AND PPOC1 THEN ? " *«-_«■"; 

=PP-Cl:A$CPP,PP)=" "iGOTO 30 

PRINT CHR$C A) ;"_*"; :A$CPP,PP)=CHR$C 

PP=PP+Cl:IF PP>L THEN 90 

GOTO 30 

GET ttCl,A:IF A<>126 AND A<>155 THEN 

IF A=126 THEN 60 
A$=A$CC1,LJ :RETURN 

pp=ci:n$=" ":? ">_<-"; :D$="l": 

AL(D$J 

GET «C1,A:IF A=155 THEN N$=N$tCi,P 
? RETURN 

IF A = 126 AND PP<>C1 THEN ? " «-*•_«-" 
P=PP-Cl:N$CPP.PPJ=" "IGOTO 130 

IF A<48 OR A>57 THEN POKE 694,C0:P 

702,C64:G0T0 130 



MU 


10 




:P0 




GOT 


JB 


20 




"> 


AF 


30 




IF 


BT 


40 


CO 


50 




TUR 


IW 


60 




:PP 


RB 


70 




A) : 


SH 


80 


OV 


90 




90 


NR 


100 


KM 


110 


PU 


120 




D = u 


YG 


130 




PJ : 


FQ 


140 




; :P 


OC 


150 




OKE 
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ill - IjCOFG continued 



SB 160 PRINT CHRSCA) ;"_«■"; : N$ CPP, PP) =CHR$ 

CA) :PP=PP+C1:IF PP>L THEM 180 

170 GOTO 130 

180 GET «C1,A:IF fi<>126 AND A<>155 THE 

N 180 

190 IF 0=126 THEM 140 

200 RETURN 
YP 210 I0=16*I0:I0CB=832+I0:P0KE IOCB+2,1 

1: ADRHI=INTCADDRESS/256) : ADRLO= ADDRESS 

-ADRHI*256 
MZ 220 POKE I0CB+4, ADRL0:P0KE I0CB+5,ADRH 

I : HI = IMT CBYTES/256) : L0=BYTES-256*HI 

230 POKE I0CB+8,L0:P0KE IOCB+9, HI : I=U5 

R CADR C'hhhSLUE") , 10) : CLOSE ttIO/16 : RETU 

RN 

240 I0=16*I0:TRAP 270 : I0CB=832+I0 : POKE 
I0CB+2,7:ADRHI=INTCADDRESS/256) : ADRLO 

=ADDRESS-ADRHI*256 
OF 250 POKE I0CB+4,ADRL0:P0KE I0CB+5,ADRH 

I : HI=INT CBYTES/256) : L0=BYTES-256*HI 

260 POKE I0CB+8,L0:P0KE IOCB+9, HI : I=US 

R CADR C'hhhuLUH") , 10) 

270 CLOSE 810/16: RETURN 

280 NS=N$CCi.PP-Ci) :TEMPS=N$ 

290 IF LENCNS)>C3 THEN TEMP$=N$ CC1, LEM 

CNS) -C3) : TEMPS CLEN CTEMPS) +1) ="," : TEMPS 

CLEN CTEMPS) +C1)=NS CLEN CNS) -C2,LEN CNS)) 

300 RETURN 
PC 310 ZZ=USRCLF,C40*YP+XP,LC,C40,C4O,FB) 

! RETURN 

320 ZZ=USRCLF,C40*YP+XP,LC,C40,BL,FB) : 

RETURN 

330 ZZ=U5RC5P,TP,C56,YP*C4O+XP,C40,14, 

21) iRETURN 

340 FILE$="D iGAME.DAT" 
YS 350 SCRS$= SCR5$C2352)= SCRSS CC2 

)=SCRS$: 10=2 :BYTES=2352:ADDRESS=ADR CSC 

R5$) 

ZI 360 ? "****Reading Data File " : OPEN 

JtCl C4 CO "K!" 
AB 370 TRAP 380:OPEN ttC2, C4, CO, FILES : GOSU 

B 240ICL05E 8C2:TRAP 40000:G0T0 400 
EH 380 ? "+++Data File does not exist.":? 

"^Creating new Data File." 
BI 390 CLOSE BC2:TRAP 40000:0PEN «C2,C8,C 

o,fileS:gosub 210:CL0SE «C2 
IM 400 FOR I=C1 TO 2352 STEP C56:IF SCRSS 

CI,I)=" " THEN NXGM=I:POP : GOTO 420 
SI 410 NEXT I:NXGM=I 
YU 420 NXGM=INTCNXGM/C56) 
LU 430 ? "H HIGH SCORES 



NB 
DJ 

AO 
YY 



GV 



TA 



HQ 

TO 
YB 
YR 



YZ 



EL 
MY 
XN 



OPEN I 1 



USED | 
TRAP 3610 



E+CNXGM<C10) ,1 : ? 



NXG 



ZM 440 ? 

": POSITION C3H 

MiPOSITION 31+C42-NXGM<10),1:? 42-NXGM 
JH 450 ? "+ + + 4- n Add New Games and Sc 

oresV'i? " D Update Scores*" : POKE 

16,112:P0KE 53774,112 
BN 460 ? " B| Delete Gaiie froM File*": 

? " WLM View Scores on Screen*":? " 

H Prin t F ile Menu*" 
OC 470 ? ■■ Mim Exit PrograH":POSITION 2 

,20:? "Enter nunber of your choice >1" 

POKE 694,C0:GET ttCi,A:IF A<48 OR A 

THEN 480 

ON A-48 GOTO 510,2200,2770,1540,30 
500 

? "fRenove disk and store in a saf 
lace.":POKE C752,C0:P0KE 16,192:P0K 
3774,247!CLR :END 

IF NXGM<42 THEN 580 

? "rs + + Unable to add any More GaMes 

list. There are no open areas.*" 

? "You have two options open to yo 
ow. 1. Copy the Main PrograM onto a 
her disk and start a new "; 



DT 


480 




>54 


AM 


490 




30, 


KN 


500 




e P 




E 5 


FI 


510 


GC 


520 




to 


YM 


530 




u n 



w mw 



not 



JH 540 ? "list or 2. DeletesoMe of the Ga 
Mes that you know longerplay or care a 
bout froM this list to "; 

TD 550 ? " free up space. ++**":? "Press I 
Hi to return to Main Menu." 

HR 560 IF PEEKCC764) <>18 THEN 560 

RL 570 POKE C764,C 255:G0T0 430 

ds 580 ? ""; b -3 ■■ ; m : m-t ;i : *m rmsSM 

":P05ITI0N 13.5:? " ■ J:IiH:r:1!B:MiU " : ACC 

1)=C0:ACC2)=CQ:ACC3) =C0:TLE UEL$=' 
DF 590 POSIT ION 6,9:? "E3331_ 

KEH=B":SLEUEL$=" ":TNAMES= SNAM 

E$ = " ":TSC0RE$=" ":SSC0RE$=" " 
ND 600 YP=18:XP=0:FB=0:LC=6:G0SUB 310:P0S 

ITION 15,18:? "£ + fc«-" 

KV 605 POSITION 2,22:? "Press RETURN only 

to Exit" 
HI 610 POSITION 2,19:? "PrograM Name ";:L 
i =14: GOSUB 20:GAME$=A$:IF AS=" " AND UP 

FLAG=0 THEN 1240 
NA 620 IF A$=" " THEN POP :G0T0 1240 
XM 630 POSITION C20- CLEN CAS) /C2) , C7 : ? AS 
FU 640 FOR 1=1 TO NXGM*C56 STEP C56-.IF AS 

= 5CRS$CI,I+LENCAS)-C1) THEN POP : GOTO 

660 
HX 650 NEXT I : GOTO 730 
ZM 660 GOSUB 310:P0SITI0N 0,16:? "This ga 

Me exists on file.":? "If you wish to 

update the "; 
CN 670 ? "scores, use option 2 froM the m 

ain Men u.* ":? "Press MM to Abort":? " 

+ U to Re-enter with new nawe," 
ER 680 IF PEEKCC764)<>63 AND PEEKCC764)<> 

40 THEN 680 
LL 690 IF PEEKCC764)=63 AND UPFLAG=C1 THE 

N POP 
PD 700 IF PEEKCC764)=63 AND D0MRITE=C0 TH 

EN POKE C764,C255:G0T0 430 
QJ 710 IF PEEKCC764)=63 THEN POKE C764,C2 

55: GOTO 1300 
OC 720 POKE C764,C255:G0T0 510 
PK 730 IF UPFLAG=C1 THEN RETURN 
GC 740 GOSUB 310:P05ITI0N 2,22:? "Enter N 

unbers only. No commas. " 
VD 750 POSITION 14,18:? "%* fc+":P05I 

TION 2,19:? "Enter Score "; :L=6 :G0SUB 

120:SC0RES=N$:IF N$=" " THEN 750 
NH 760 AC1)=UALCNS) iGOSUB 280 : SCORE$=TEMP 

$ 
AI 770 POSITION 13-LEN CSCORES) , 11 : ? SCORE 

NF 780 GOSUB 310:P0SITI0N 2,22:? "Press R 

ETURN only if none.":POSITlON 14,18:? 

"£■» £«•" 
BT 790 POSITION 2,19:? "Enter Level ";:L= 

2:G0SUB 120:LEUEL$=N$:IF NS=" " THEN L 

EUELS=" " 
RD 800 POSITION 21-LEN CLEVELS) ,11 : ? LEVEL 

MY 810 GOSUB 310:P0SITI0N 13,18:? "t* 

t*":POSITION 2.19:? "Enter Name "j:L= 

5:G0SUB 20:IF A$=" " THEN 810 
HA 820 NAME$=A$:POSITION 27,11:? NAMES:IF 

UPFLAG=1 THEN RETURN 
GM 830 GOSUB 310:P05ITI0N 2,22:? "Optiona 

1 InforMation":? "RETURN only to leave 
blank"; 
UD 848 POSITION 14,18:? "%+ t«-":P05I 

TION 2,19:? "Enter Score "; :L=6:G05UB 

120:SSC0RES=N$ 
SX 850 IF N$=" " THEN 5LEVELS=" ":SNAME$= 

" ": ACC2)=C0:IF UPFLAG=C1 THEN RETURN 
NQ 860 IF N$=" " THEN 1070 
CB 870 ACC2)=UALCN$) :GOSUB 280 : SSCORES=TE 

MPS 
IN 880 POSITION 13-LENCSSC0RES),13:? SSCO 

RES 
KD 890 GOSUB 310 : POSITION 14,18:? "£-» h* 
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■^POSITION 2,23:? "RETURN only to leav 

e blank"; 
SN 900 POSITION 2,19:? "Enter Level ";:L= 

2:G05UB 120:SLEvELS=NS:IF N$=" " THEN 

SLEVEL$=" " 
YW 910 POSITION 21-LEN CSLEUELS) , 13 : ? SLEW 

ELS 
UH 920 GOSUB 310:P0SITI0N 13,18:? "t + 

t+":P0SITI0N 2,19:? "Enter Name ";:L= 

5 :GOSUB 20 
UV 930 IF A$=" " THEN 920 
CE 940 5NAME$=A$: POSITION 27,13:? SNAMES : 

IF UPFLAG=1 THEN RETURN 
GR 950 GOSUB 310:P0SITI0N 2,22:? "Optiona 

1 InforMation":? "RETURN only to leave 
blank"; 
XL 960 POSITION 14,18:? "£ + fc+":POSI 

TION 2,19:? "Enter Score "; :L=6: GOSUB 

120:TSC0RES=N$ 
MM 970 IF N$=" " THEN TLEVELS=" " : TNAME$= 

" ":ACC3)=C0:IF UPFLAG=Ci THEN RETURN 
NU 980 IF N$ = " " THEN 1070 
DR 990 ACC3)=VALCNS) :GOSUB 280 : T5C0RE$=TE 

MPS 
JL 1000 POSITION 13-LENCTSC0RE$),15:? TSC 

ORES 
TU 1010 GOSUB 310:P05ITI0N 14,18:? "t + t 

+":P0SITI0N 2,23:? "RETURN only to lea 

ve blank"; 
EV 1020 POSITION 2,19:? "Enter Level "; :L 

=2:G0SUB 120:TLEVEL$=N$:IF NS=" " THEN 
TLEVEL$=" " 
AH 1030 POSITION 21-LEN CTLEVELS), 15:? TLE 

VEL$ 
OL 1040 GOSUB 310:P0SITI0N 13,18:? "% + 

t«-":P05ITlON 2,19:? "Enter Nane ";:L 

=5:G05UB 20 
CB 1050 IF A$ = " " THEN 1040 
CH 1060 TNOMES^flS: POSITION 27,15:? THAMES 

!IF UPFLAG^l THEN RETURN 
UP 1070 GOSUB 310:IF ACCi)>ACC2) AND AtC2 

)>AIC3) THEN 1210 
YL 108O IF ACC1)>ACC3) THEN 1110 
GT 1090 T=AtCl) : A CC1) =A CC3) : A CC3) =T : TEMPS 

=TNAME$:TNAME$=NAME$:NAME$=TEMP$ 
PD 1100 TEMP$=SC0RE$:5C0RES=TSC0RE$:TSC0R 

E$=TEMP$:TEMP$=LEUEL$:LEgEL$=TLEUEL$!T 

LEVEL$=TEMP$ 
AG 1110 IF ACCi)>ACC2) THEN 1140 

ar 1120 t = a cci) : a cci) =a cc2) : a cc2) =t : temps 

=sn ames :sname$=n ames :name$=temp$ 
wx 1130 temp$=slevel$:slevel$=level$:leve 

ls=slevel$: temp$=5sc0re$:ssc0re$=sc0re 

S:scoreS=temp$ 
ez 1140 if acc2)>acc3) then 1170 
er 1150 t=acc2) : a ic2) =a cc3) : a cc3) =t : temps 

=sn ames :sname$=tn ames :tname$=temp$ 
qr 1160 temp$=slevel$:slevel$=tlevel$:tle 

uels=temp$:temp$=ssc0re$:s5c0res=t5c0r 

e$:tscores=temp$ 
um 1170 yp=11:g05ub 310 : yp=18 : position 13 

-lencscoreSj ,ii:? score$:position 21-L 

EN(LEVELS) ,11:? LEVELS 
MN 1180 POSITION 27,11:? NAMES : POSITION 1 

3-LENC55C0RES) ,13:? SSCORES : P05ITI0N 2 

1-LENCSLEVELS) ,13:? SLEVELS 
ZT 1190 POSITION 27,13:? SNAMES : POSITION 

13-LENCT5C0RES) ,15:? TSCORES : POSITION 

21-LEN CTLEVELS) ,15:? TLEVELS 
SE 1200 POSITION 27,15:? THAMES 
RU 1210 POSITION 2,19:? "■TJIall Ok E 

■ Correct Errors":? :? "O Abort" 
VM 1220 POKE C702,C64:P0KE C694,C0:GET »C 

1,A:IF AOC65 AND A<>79 AND A<>67 THEN 
122.0 
CF 1230 IF AOC65 THEN 1290 
YO 1240 GOSUB 310:P0SITI0N 2,18:? "Ready 

to ABORT":? :? "Are you sure CYes/No) 



? "; 
AL 1250 POKE C702, C64 ! POKE C694,C0:GET OC 

1,A:IF AOC89 AND AOC78 THEN 1250 
OG 1260 IF A = C78 THEN YP = 18 ! XP = : LC = 6 : FB = 

OiGOSUB 310:G0T0 1210 
FU 1270 IF DOWRITE=C0 THEN 430 
BQ 1280 POSITION 2,18:? "This entry Abort 

ed.":GOTO 1400 
MX 1290 IF A<>79 THEN 1430 
JL 1300 YP=19:LC=5:G0SUB 310:YP=18:LC=6:P 

OSITION 2,20:? " Any wore entries CYe 

s/No)? "; 
RV 1310 POKE C702,C64:P0KE C694,C0:GET ttC 

1,A:IF AOC89 AND AOC78 THEN 1310 
HQ 1320 I=NXGM*C56+C1:SCR5$CI,I+13)=GAME$ 

:5CRSSCI+2i-LENCSC0RE$),I+20)=SC0RES:S 

CR5$tI + 23-LEN (LEVELS) , 1+22) =LEVEL$ 
UV 1330 5CRSSCI+23,I+27)=NAMES:SCRSSCI+35 

-LENCS5C0RES) ,I+34)=5SC0RE$:5CR5$CI+37 

-LEN CSLEVELS) , 1 + 36) =5LEVELS 
MA 1340 SCR5SCI+37,I+41)=5NAMES 
PD 1350 SCRSSCI+49-LENCTSC0RE$) ,I+48)=TSC 

ORES :SCRSSCI+51-LEN CTLEVELS) , I+50)=TLE 

VEL$:5CR5SCI+51, 1+55) =TN AMES 
DZ 1360 NXGM=NXGM+C1:D0MRITE=C1 
ZO 1370 IF AOC89 THEN 1400 
BM 1380 IF NXGM<42 THEN 510 
GT 1390 YP=19:LC=5:G0SUB 310 : YP=18 : LC=6 : P 

OSITION 2,17:? "All 42 spaces filled." 
JCP 1400 POSITION 2,19:? "Saving all Chang 

es to Disk ":? "[HJ-sDOHRITErO 

XA 1410 ZZ=USRCMK5,ADRC5CR5S),ADRCSCR5$)+ 

NXGMK56, 14, 0,O, 0,56,0) 
GB 1420 OPEN tt2,8,0,FILES:BYTES=2352:ADDR 

ESS=ADR(SCRSS) :I0=2:G0SUB 210 : TRAP 400 

O0:GOTO 430 
EG 1430 GOSUB 310:P05ITI0N 2,1 8:? "Which 

to Correct ? ":? :? "Press MM if all 

are correct."; 
HF 1440 POSITION 33,7:? "£«• IMPOSITION 3 

3,11:? "t+ 2":P0SITI0N 33,13:? "fc + 3": 

POSITION 33,15:? "t+ 4" 
MM 1450 POKE C694,C0!GET 8C1,A:IF A<48 OR 

A>52 THEN 1450 
JY 1460 A=A-48:IF A=CO THEN 1070 
XE 1470 FB=0:YP=18:FB=0:G0SUB 310 
MR 1480 UPFLAG=Cl:XP=O:LC=l:FB=0:ON A GOS 

UB 1500,1510,1520,1530 
XM 1490 UPFLAG=CO:GOTO 1430 
IC 1500 YP=7:G0SUB 310 : YP=18 : LC=6 : GOTO 60 


AX 1510 YP=11:G0SUB 318 : YP=18 : LC=6 : GOTO 7 

40 
BT 1520 YP=13:G0SUB 310 : YP = 18 : LC=6 : GOTO 8 

30 
HC 1530 YP=15!G05UB 310 : YP = 18 : LC = 6 : GOTO 9 

50 

OC 1540 ? "IM POSITION 10,0:? "BSHuMUMil 

W^Wi]:)4--M ll :IF NKGMOCO THEN 1580 
KB 1550 ? " ++N o gawes on file to see.":? 

"+Press WP9 to Continue" 
G8 1560 IF PEEK CC764) <>18 THEN 1560 
BU 1570 POKE C764,C255:G0T0 430 
UX 1580 NX=C6!PR=C0 
JL 1590 N=C0:P0SITI0N 16,22:? "Klenu"; :I 

F NX<NXGM THEN POSITION 2,22:? "KMext 

ii • N — CI 
10 1600 PS=CO:IF PR>CO THEN POSITION 29,2 

2:? " ■J revious":PS=Cl 
JB 1610 IF NX>NXGM THEN NX=NXGM 
YN 1620 X = C2: Y=C3:F0R I = PR TO NX-C1:P=I*5 

6 + C1 
MM 1630 TEMP$=" ":GAME$=SC 

RS$(P,P+13) :FOR Z=14 TO CI STEP -CI 
ZG 1640 IF GAMES CZ, Z) <>" " THEN POP : GOTO 

1660 
MV 1650 NEXT Z 
KX 1660 G = C9-INTCZ/C2) : TEMPS CO, Q + Z-Ci) =GA 
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continued 



ME$:U=USRIRU,ADRCTEMP$)) 
AS 1670 POSITIOH K,Y:? TEMP$ : POSITION 

+ 2:? SCRS$tP+14,P+20) ;" ";5CR5$(P+2 

+22);" ";SCRS$CP+23,P+27) 
ZJ 1680 POSITION X,Y+3:? SCRS$ CP+28, P+ 

;" ";SCRS$lP+35,P+36) j" M ;SCRS$tP+3 

+ 41) 
HD 1650 POSITION X,Y+4:? SCRSS CP+42, P+ 

j" ";5CRS$CP+49,P+50) ;" ";5CRS$CP+5 

+ 55) 
UR 1700 IF X = C2 THEN X=21:G0T0 1720 
OF 1710 Y=Y+C6:X=C2 
FJ 1720 NEXT I 
IR 1730 POKE C702,C64:POKE C694,C0:GET 

lift 
RK 174B IF N=CO ftND A = C78 THEN 1730 
OV 1750 IF PS=CO AND A=80 THEN 1730 
A-77 THEN 430 

N=Ci AND A=C78 THEN PR=NX : N 
R+C61G0T0 1790 
A« 1789 IF PS = C1 AND A = 80 THEN NX=PR : P 
1G0T0 179G 

■IS": POSITION 10,0:? 



GL 1760 IF 
GE 1770 IF 



R-C6: 
YD 1790 



X,Y 
1,P 

34) 
7,P 

48) 
1,P 



as. 



[MB3EEEa"8GOTO 1590 
XH 1800 ? "rs" :POKE C752,C1:P0 SITIQN 0, 0:? 

ni ,, ;TEMP$;"Bi 



Select GaHe to 



SO 1810 XP=CO:YP=C0:LC=23:FB=C128:BL=Cl:G 

OSUB 320:XP=39:GQ5UB 320 
TV 1820 IF NXGMOCO THEN 1870 
HG 1830 ? "++No Ganes on file. Use Option 
1 on the Main Menu to add gaxtes and s 

cores to file." 
WO 1840 ? "llPress MM to Continue" 
CW 1850 POKE C702,C64:P0KE C694,C0:GET BC 

1,A:IF A<>67 THEN 1850 
AK I860 GN=CO:RETURN 
GN 1870 XP=C4:YP=Cl:TP=ADRtSCRS5) : GOSUB 3 

30 
WU 1880 XP=22:TP=ADRCSCRS$)+1176:G0SUB 33 


B5 1890 XP=0:YPr22:LC=2:G05UB 310:P0SITI0 

N 8,22:? 
UN 1980 POSITION 6,23:? 
— IX^HHSC"; :x=C2: 



Arrow Keys Move Pointer 



■RETURNl 
: Y = C1:DX = C2:DY = C1 
IB 1910 POSITION X,Y:? "=>" 
HW 1920 POKE C702,C64:P0KE C694,C0:GET ttC 

1,A:IF A = 88 THEN GN=C0 : RETURN 
RI 1930 IF A=155 THEN 2090 
JY 1940 IF A = 45 THEN DY=Y-C1 : GOTO 2020 



LF 1950 IF 
CX I960 IF 



A=61 THEN DY=Y+CI:G0T0 205B 
A=42 THEN DX=C20:G0T0 1990 



NO 1970 IF A=43 THEN DX=C2:G0T0 1990 

TI 1980 GOTO 1920 

CZ 1990 IF DX=C20 AND NXGM<22 THEN DX = C2 

RY 2O0O IF DX=C20 AND Y>NXGM-C20 THEN DY= 

NXGM-21 
RD 2010 GOTO 2080 
OS 2O20 IF DY<C1 AND X = C20 THEN DY=NXGM-2 

1 
OR 2O30 IF DY<C1 AND X=C2 AND NXGM>21 THE 

N DY=2i 
PH 2040 IF DY<C1 AND X = C2 THEN DY=NXGM 
NF 2O50 IF DY>21 THEN DY=C1 
AI 2O60 IF DY>NXGM THEN DY = C1 
01 2070 IF X=C20 AND DY>NXGM-21 THEN DY = C 

1 
HJ 2080 POSITION X,Y:? X=DX : Y=DY : GOT 

1910 
BQ 209O GN-Y:IF XrC20 THEN GN=GN+21 
Eft 210O TEMP$=5CR5$ t CGN-C1)*C56+C1, tGN-Cl 

)*C56+14) :TEMP$C15)=" " : U=USR CRV, ADR C 

TEMP$) ) 
TO 2110 X P = : VP = 2 2 ' l p. ,~ , 2 , J £ Q 5 u B 310:P0SITI0 

OP 2120 POSITION 0,23:? 

BOEHfHII5M " ; : position 10,10:? 
MN 2130 POKE C702,C64:P0KE C694,C0:GET ttC 



YC 



00 
EV 



Select Differen 



1,A:IF AOC78 AND AOC89 THEN 2130 
2140 IF A=C89 THEN RETURN 
2150 YP = 22:LC = 2:XP:=0:FB = 128: GOSUB 319: 
POSITIO N B,2 3:? " ■ S 

OBiai ft Emir; 

2160 POSITION 10,10:? 

2170 POKE C702,C64:P0KE C694,C0:GET 8C 

1,A:IF AOC65 AND A<>83 THEN 2170 

2180 IF A = C65 THEN GN=CO:RETURN 

2190 POSITIO N X,Y:? " ".-GOTO 1890 

22O0 TEMP$ = "[UJl£iiB": GOSUB 1800:IF GN = 

C0 AND DOWRITE^CO THEN 430 

2210 IF GN=CO THEN 1400 

2220 GN=CGN-C1)*C56+C1 

LT 2230 GAME$=5CRS$CGN,GN+13) :SC0RE$=5CR5 
$ CGN + 14 . GN + 20) : LEgEL$ = 5CRS$ CGN + 21, GN + 2 
2) :NAME$=SCR5$CGN+23,GN+27) 
2240 5SC0RES=SCRS$tGN+28,GN+34) ISLEVEL 
$=5CR5$CGN+35,GN+36) : SNAME$=5CR5$ CGN+3 
7,GN+4i) :T5C0RE$=5CR5$CGN+42,GN+48) 
2250 TLEVEL$=5CRS$(GN+49,GN+50) :TNAME$ 
= SCRS$(GN + 51,GN + 55) : TEMP5 = SC0RE$ CI, 3) : 
TEMP$C4)=SC0RE$C5.7) : A CI) =UAL ITEMPS) 
2260 TEMP$=5SC0RESCi,3) : TEMP$ C4) =5SC0R 
E$C5,7):IF TEMP$=" " THEN TEMP$=" 
O" 

2270 ACC2)=UALCTEMP$) : TEMP$=TSCORE$ CC1 
,C3) :TEMP$CC4)=TSC0RE$CC5,C7) : IF TEMPS 
z" ■■ THEN TEMP$="0" 
2280 ACC3)=VALCTEMP$) :? "H" : POSITION 1 
3,0:? "Update Scores" 

GL 2290 TEMP$=" ":FOR Z=14 

TO CI STEP -Cl:IF GAMESCZ,Z)<>" " THE 
N POP :GOTO 2310 
2300 NEXT Z 

2310 0=C9-INTCZ/C2) : TEMPS CO, Q + Z-Cl) =GA 
ME$:U=U5RCRU, ADRCTEMPS)) 
2320 POSITION 12,2:? TEMPS : POSITION 12 
,4:? SCORES;" ";LEVEL$;" ";NAME$ 

VF 2330 POSITION 12,6:? S5C0RES;" ";SLEvE 
LS;" ";5NAMES 

2340 POSITION 12,8:? TSCORE$;" ";TLEVE 
L$J" ";TNAME$ 
2350 POSI TION 3,12 : ? 

UHJUPI Emu 

2360 XP=0:YP=20:FB=0: 
SITION 2,22:? "Press 



PS 
SC 



CZ 
ME 

KP 
UC 
MP 

DC 
OE 



DE 



ZG 



AX 



KB 



MB 
KD 

RY 



AO 
00 



IF 



□asEanai 



El 



I LC-4:G0 SUB 

Hume 



318 :P0 
only to 



"Enter Score "; 
AND DOWRITE=CO 



exit' 

2370 POSITION 2,20: 

=6:G05UB 120:IF PP=C1 

HEN 430 

2380 IF PP=C1 THEN 2760 

2390 ACC4)=UALCNS) : IF ACC4)>ACC3) 

2460 
2400 YP=20:LC=4:G0SUB 310 ! POSITION 2,2 
0:? "Score ";NS;" to low to be entered 



THEN 



D 



CH 
SH 
TM 



CB 2410 POS 
ffl Abort 
2420 POK 
1,A:IF A 

UZ 2430 IF 
2440 IF 
2450 GOT 
2460 GOS 
6,14: 

WU 2470 GO S 

■mum; 

FH 2480 POS 

=2:G05UB 

ULEVELS 

GS 2490 POS 

LH 25O0 POS 

Nane "; 

00 
SD 2510 UNA 
HG 2520 GOS 

1 Ok 



ITION 2,22:? 



Re-enter 



E C702,C64:P0KE C694,C0:GET OC 

<>C65 AND A<>82 THEN 2420 

A=C65 AND DOWRITE=CO THEN 430 

A = C65 THEN 2760 

2360 

UB 280 :USCORE$::TEMP$: POSITION 

SCORES 

UB 310:P0SITI0N 2,22:? "Press 

only to leave blank" 
ITION 2,20:? "Enter Level ";:L 

120:ULEUEL$=NS:IF H$-" " THEN 

II II 

ITION 22,14:? ULEVELS 

ITION 2,20:G0SUB 310:? "Enter 

L=5:G0SUB 20IIF AS = " " THEN 25 

MES=AS: POSITION 32,14:? UNAMES 
UB_310: POSITION 2,20 :? "MM al 
Re-enter":? :? "EB Abort" 
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BF 2530 POKE 702,64:P0KE 694,0:GET ttl,A:I 

F A = 65 AND DOWRITE=0 THEN 430 
CJ 2540 IF A = C65 THEK 2760 
TD 2550 IF A = 82 THEN 2230 
CK 2560 IF A = 79 THEN 2580 
SA 2570 GOTO 2530 
All 2580 D0WRITE=C1:IF ACC4XACC1) THEN 26 

10 
OJ 2590 TSC0RE$=5SC0RE$:TLEUEL$=5LEVEL$:T 

NAME$=5NAME$:SSC0RE$=SC0RE$:SLEUEL$=LE 

VEL$:5NAME$=NAME$ 
BR 2600 SC0RE$=U5C0RE$:LEUEL$=ULEVEL5:NAM 

E$=UNAME$:G0T0 2646 
GC 2610 IF ACC4XACC2) THEN 2630 
PE 2620 T5C0RE$=55C0RE$:TLEUEL$=5LEVEL$:T 

NAME$=5NAME$:S5C0RE$=U5C0RE$:5LEUEL$=U 

LEUEL$:5NAME$=UNAME$:G0T0 2640 
PX 2630 T5C0RE$=USC0RE$:TLEUEL$=ULEVEL$:T 

NAME$=UNAME$ 
AG 2640 I=GN:5CRS$CI,I+13)=GAME$:SCR5$CI+ 

21-LENCSC0RES) , I+20)=SC0RE$:SCR5$£I+23 

-LENCLEUELS) , 1+22) =LEVEL$ 
WI 2650 5CRS${I+23,I+27)=NAME$:SCR5$CI+35 

-LENC55C0RE$),I+34)=SSC0RE$:SCRS$CI+37 

-LENCSLEUEL$) , 1+36) =SLEUEL$ 
MN 2660 5CRS$CI+37,I+41)=5NAME$ 
PO 2670 SCRS$£I+49-LENCTSC0RE$) ,I+48)=TSC 

0RE$:5CRS$CI+51-LENCTLEVEL$) , I+50)=TLE 

UEL$:SCRS$ £1+51, 1+55) =TNAME$ 
IN 2680 XP=0:YP=4:LC=19:FB=O:GO5UB 310 
JL 2690 P05ITI0N 12,4:? 5CR5$ £1+14, 1+20) ; 

" ";SCRS$£I+21,I+22);" "; SCRS$ £ 1 + 23, 1 + 

27) 
TM 27O0 POSITION 12,6:? 5CR5S £1+28, 1+34) ; 

" ";SCRS$£I+35,I+36) ;" ■■; SCRSS CI + 37, 1 + 

41) 
BU 2710 POSITION 12,8:? SCRS$ £1+42, 1+48) ; 

■' ";SCRS$£I+49,I+50) ;" ";SCRS$£I+51,I+ 

55) 
OT 2720 POSITION 2,20:? "Other Games to U 

Pdate tYes/No) "; 
LH 2730 POKE C702, C64 : POKE C694,C0:GET ttC 

1,A:IF AOC89 AND A<>C78 THEN 2730 
WI 2740 IF A = C89 THEN 2200 
PO 2750 GOTO 1400 
EI 2760 XP=0:YP=18:LC=6!G0SUB 310:P05ITI0 

N 2,18:? "Aborted;": GOTO 2720 
GL 2770 TEMP$="UiLkiH":GOSUB 1800:IF GN = 

CO AND DOWRITE^CO THEN 430 
EH 2780 IF GN = C8 THEN 3020 
PJ 2790 GN=£GN-Ci)*C56+Ci 
LW 2800 GAME$=SCRS$tGN,GN+13) :SC0RE$=SCRS 

$£GN+14.GN+20) :LEUEL$rSCRS$(GN+21,GN+2 

2) :NAME$=SCRS$ tGN+23, GN+27) 
DH 2810 SSC0RE$=SCRS$£GN+28,GN+34) :SLEVEL 

$=SCRS$£GN+35,GN+36) : SNAME$=SCRS$ CGN+3 

7,GN+41) :TSC0RE$=5CRS$£GN+42,GN+48) 
HP 2820 TLEUEL$=SCRS$tGN+49,GN+50) : TNAME$ 

=SCR5$£GN+51,GN+55) 
ZA 2830 ? "H": POSITION 13, O:? "Delete Gam 

e" 
PD 2840 TEMP$=" ":FOR Z = 14 

TO CI STEP -Cl:IF GAME$£Z,Z) <>" " THE 

N POP :G0T0 2860 
NA 2850 NEXT Z 
LC 2860 Q=C9-INTfZ/C2) :TEMP$CQ,0+Z-C1)=GA 

ME$ : U=U5R CRV, ADR CTEMP$) ) 
5X 2870 POSITION 12,2:? TEMPS : POSITION 12 

,4:? SCORES;" ";LEVEL$;" ";NAME$ 
WE 2880 POSITION 12,6:? SSCORES;" ";SLEUE 

L$;" ";SNAME$ 
BP 2890 POSITION 12,8:? TSCORES;" ";TLEgE 

L$J" ";TNAME$ 
BZ 2900 POSITION 2,17:? "Type full word D 

ELETE to delete this" 
WT 29G5 ? "game from the list. Anything e 

lse willAbort the process." 



UH 2910 POSITION 2, 21 : L=6 : GOSUB 20:IF A$< 

>"DELETE" AND D0WRITE=C0 THEN 430 
OR 2920 IF A$<>"DELETE" THEN 3020 
IS 2930 IF GN=2297 THEN 2950 
IJ 2940 SCRSS£GN,2296)=SCRSS£GN+56,2352) 
OQ 2950 TEMP$=" " : SCRS$ C2297 

,2310)=TEMP$ 
PN 2960 SCRS$C2311,2324)rTEMPS:SCRS$C2325 

, 2338) =TEMP$:SCRS$ £2339, 2352) =TEMP$: NX 

GM=NXGM-l:DOWRITE=l 
YJ 2970 YP=17:LC=C7:FB=0:G0SUB 318:P05ITI 

ON 2,17:? "Game Deleted." 
JT 2988 POSITION 2,21:? "Any More games t 

Delete CYes/No) ? "; 

IT 2990 POKE C702,C64:P0KE C694,C0:GET ttC 

1,A:IF AOC78 AND AOC89 THEN 2990 
FI 3000 IF A = C89 THEN 2770 
ZI 3010 D0WRITE=C0: POSITION 2,21:? "DUpda 

ting Disk File. . .":GOTO 1420 
FC 3020 YP=17:LC=C7:FB=C0:G0SUB 310:P0SIT 

ION 2,17:? "+Process Aborted.": GOTO 29 

80 
UT 3030 ? "*": POSITION 15,0:? "HIG H SCORE 

":P05ITI0N 14,2:? " ■J:H:tJ:T3Trnj + + + " 
NO 30 40 ? "MM AH Games with Scores**":? 
"MM Al l G ames with Top Score only++" 
CO 3050 J? "MM List of Game Names Only++" 

:? "MM Return to Main Menu" 
UU 3060 POSITION 2,21:? "Press number of 

your choice >I"; 
OE 3070 POKE C694,C0:GET ttCl,A:IF A<49 OR 

A>52 THEN 3070 
ZX 3080 F=A-48:IF A = 52 TH EN 4 38 
ZY 3090 POSITION 2,21:? " !■ J ourtg or MM 

ighty Column Printer"; 
EM 3100 POKE C702,C64:P0KE C694,C0:GET ttC 

1,A:IF A<>70 AND A<>69 THEN 3100 
HH 3110 CLM=80:IF A=70 THEN CLM=40 
QL 3120 ? "fl'^POSITION 12,0:? "Function S 

elected":ON F GOTO 3130,3140,3150 
KL 3130 POSITION 7,2:? "Print All Games w 

ith 5cores":G0T0 3160 
EM 3140 POSITION 3,2:? "Print All Games w 

ith Top Score Only":GOTO 3160 
TF 3158 POSITION 4,2:? "Print List of Gam 

e Names On File" 
ZO 3160 POSITION 2,6:? "Please be sure pr 

inter is ON-LINE and r ead y to print." 
BA 3170 POSITION 8,11:? "MM Pr int" : POSIT 

ION 8,13:? "MM Abort print" 
GC 3180 POSITION 2,17:? "Press Letter of 

Choice >I"; 
NK 3190 POKE C702,C64:P0KE C694,C0:GET «C 

1,A:IF AOC65 AND A<>80 THEN 3190 
UH 32O0 IF A=C65 THEN 3830 
PC 3210 TRAP 352G:0PEN »C4, C8, C8, "P : " : TEM 

P$=" "JPOSITION 2,17:? 

"□Printing. ..." 
BY 3220 ON F GOTO 3238,3378,3478 
PI 3238 S=112:51=Cl:? ttC4; TEMP$ £C1, C6) ; ! I 
IF CLM=80 THEN ? ttC4; TEMPS; TEMP$ £C1, C4) 

; :S=224:S1=C3 
SX 3240 ? «C4;"LIST OF ALL GAMES WITH SCO 

RES":? »C4:? »C4 
SS 3250 FOR I=C1 TO NXGM*C56 STEP 5:F0R W 

= C0 TO Sl:P=W*C56+I:IF P>2352 THEN POP 
:? ttC4:G0T0 3290 
IR 3268 GAME$=5CRS$fP,P+13) :FOR Z=14 TO C 

1 STEP -ClIIF GAMES tZ,Z)<>" " THEN POP 
:GOTO 3280 

MW 3278 NEXT Z:POP :? ttC4:G0T0 3290 
EA 3280 TEMP$=" ":Q=C9-INT 

CZ/C2) :TEMP$C0,0+Z-C1)=GAME$:? ttC4;" 
";TEMP$; :NEXT W:? »C4 
XI 3290 FOR W=CO TO SI : P=W*C56+I : IF P>235 

2 THEN POP :? »C4:G0T0 3310 

EO 3300 ? 8C4;" ";SCR5$tP+14,P+C20) ;" " 
;SCRS$tP+21,P+22) ;" ";SCRS$CP+23,P+27) 
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; :next W:? ttC4 
BK 3310 FOR W=C0 TO 51 : P=W»C56+I : IF P>235 

2 THEN POP :? OC4SG0T0 3338 
MX 3320 ? «C4;" ";5CR5$CP+28,P+34) ;" ■■; 

SCRS$CP+35,P+36>;" "j SCR5$ £P+37, P + 41J j 

SNEXT Ws? ttC4 
GO 3330 FOR H=CO TO SI S P=W*C56+I S IF P>235 

2 THEM POP :? ttC4:G0T0 3358 
MK 3340 ? »C4;" ■■; 5CR5$ (P + 42 , P + 48J ; •• "; 

5CRS$ (P+49, P+58J ; " "; SCR5$ CP+51, P + 55) ; 

: NEXT H 
HY 3350 ? ttC4:? ttC4:NEXT I:? »C4 
MX 3360 CL85E «C4:G0T0 3830 
MB 3378 S=112:51=ClS? »C4;" "j:IF CLM= 

88 THEN ? ttC4;" "; : 

5=224:51=83 
ZL 3388 ? 8C4j"LIST OF ALL GAMES WITH TOP 

SCORE":? 8C4S? ttC4 
FA 3390 F8R I=C1 TO NXGM*C56 STEP S:FOR H 

=C0 TO Si:P=W*C56+I:IF P>2352 THEN POP 
:? 8C4SG0T0 3438 
UV 3488 GAME$ = 5CR5$CP.P + 13) SFOR Z=14 TO C 

1 STEP -Cl:IF GAMESCZ,ZJ <>" " THEN POP 
:GOTO 3428 

YJ 3418 NEXT Z:? BC4SP0P ! GOTO 3430 

FA 3420 TEMP$=" ":Q=9-INTC 

Z/C2) S TEMPS CQ,Q+Z-C1)=GAME$:? ttC4;" 

";TEMP$; :NEXT W:? 8C4 
DJ 3438 FOR W=C8 T8 51 ! P=W*C56+I ! IF P>235 

2 THEN POP SGOTO 3450 

MF 3448 ? 8C4;" "; 5CRS$ CP+14, P+C28) ; " " 

;5CRS$CP+2i,P+22J ;" ";5CRS$(P+23,P+27) 

■ ■ NEXT H 
IA 3458 ? «C4s? 8C4SNEXT I:? ttC4 
WZ 3468 CLOSE 8C4SG0T0 3030 
MT 3470 5=112:Sl=Cl:? 8C4;" ";:IF C 

LM=88 THEN ? »C4;" 

"; :5=224:si=C3 
PO 3488 ? ttC4;"LIST OF GAME NAMES ON FILE 

":? »C4s? ttC4 
DX 3490 FOR I=C1 TC NXGM*C56 STEP S:FOR W 

=C8 TO Sl:P=M*C56+I:IF P>2352 THEN POP 
SGOTO 3510 
DM 3500 ? 8C4;" "; SCRS$ CP, P + 13) J : NEXT W 

:? «C4:? 8C4sNEXT I:? ttC4: CLOSE ttC4:G0 

TO 3038 
SD 3510 ? 8C4S? 8C4 SNEXT I:? ttC4: CLOSE ttC 

4:G0T0 3038 
TU 3520 A=PEEKC195J S? "IS + 4. + ERR0R t+ ";A:? 

J? ICLOSE BC4 
CT 3530 ? "The Printer is not responding. 
Be sureit is on and in an on-line sta 

te." 
RH 3540 IF AO130 AND A<>138 AND A<>139 T 

HEN ? :? "This error Might not be the 

printers fault. Check program. " 
EC 3558 ? :? "Error occured in line ";PEE 

KC186)+PEEKC187)*C256 
UF 3560 ? :? "m Main Menu MM Print M 

enu" 
VI 3570 ? :? "Press letter of choice >I"; 

SPOKE C764,C255 
TJ 3588 IF PEEKCC764)=C18 THEN P8KE C764, 

C255:G0T0 3030 
RM 3590 IF PEEKCC764)=37 THEN POKE C764.C 

255:G0T0 430 
UG 3600 GOTO 3588 
WO 3618 A=PEEKC195) :? "IU+ERROR fc+";Aj" I 

N LINE ";PEEKC186)+PEEKC187J*C256s? :? 
SPOKE C752,C0:P0KE 16,192 
CM 3620 POKE 53774, 247:IF A<>130 AND A<>1 

38 AND A<>139 AND A<>140 AND A<>142 AN 

D A<>143 AND A<>144 THEN 3640 
VN 3630 ? "The problen seews to be with t 

he disk drive. It is not responding pr 

operly. Check drive. ":END 
MX 3640 IF A=169 THEN ? "The directory on 
the disk is full. No rooM for the dat 



a file. ":ENI> 
XA 3650 IF A<>162 THEN 3688 
HP 3660 ? "There is not enough room on th 

e disk for the data file. You need at 
least 19 free sectors in Single "; 
GY 3678 ? "or 18 free sectors in Double 

Density. ":END 
JN 3688 IF A=167 THEN ? "The data file is 
locked. I an unable to update the inf 

orMation.":END 
SO 3698 ? "Please Check Manual for explai 

nation of error. "SEND 
PD 3700 DIM USC0RE$C7J , ULEVELS C2J , UNAME$ C 

5J,D$tlJ,5CRS$C2352),SC0RE$C7) . GAMES CI 

43 , LEVELS C2) , NAMES t5) . AS tl4) , N5 C6J 
DS 3710 DIM FILESC10),RVSC22),TNAMESC5),T 

EMPSC16),AC4),SSC0RESC7),TSC0RESC7J,SL 

EVEL$(2) ,TLEVELS12) ,SNAMESC5) 
MM 3728 DIM SPS C185J , LFS C61) , MK5S £192) 
OY 3888 RV=ADRCRVS) SSP=ADRCSP$) :LF=ADRCLF 

$) :MKS=ADRCMK5SJ 
IB 3810 CO=0SC1=1SC2=2SC3=3:C4=4:C5=5:C6= 

6 :C7=7:C8=8:C9=9:C18=10:C255=255:C256= 

256SC42=42:C694=694:C702=782 
OV 3820 C16=16:C20=20:C764=764SC56=56:C65 

=65:C82=82:C89=89:C78=78:C64=64:C4B=40 

SC752=752:C128=128 
BA 3838 RETURN 
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Create-a-base is a versatile file and retrieve program that 
allows you to easily define your own personal databases. 
It has facilities for creating databases, adding new records 
to a database, updating records already on your database, 
searching on multiple key fields, and simple reporting. 

Before we go into explanations of how to use Create-a- 
base, here's a quick overview of some common database 
buzzwords. 

A byte or character, is the smallest piece of data that 
Create-a-base deals with. It's a single character, like the 
letter A. 

A field is a collection of bytes and usually contains data 
pertaining to a single subject or item, like a name or ad- 
dress. 

A record is a logical collection of fields. For instance, 
a record in a database called Phone Book, might contain 
the following fields: name, street, city, state, zip code and 
phone number. 

A file (in this case, the database) is a collection of 
records. 

A database is merely a collection of related data, usually 
in multiple files. Large mainframe databases can share 
data between files, avoiding the need to enter all the fields 
for each record or entity. However, this type of data shar- 
ing is beyond the scope of Create-a-base. Remember, most 
of us (I have an Atari 800) have only 48K of RAM built 
into our computers. It's this fixed amount of memory that's 
the main limitation when working with a database. 



Limitations. 

The input area for each record is limited to a single 
graphics screen. You can enter up to sixteen fields per 
record, and each field can be up to 31 bytes long. This 
gives you a maximum record size of 496 bytes. 



31 bytes 
field 



16 fields 
record 



496 bytes 
record 



The size of each database is limited only by the capaci- 
ty of your disk drive and a single disk. A 1050 drive using 
DOS 2.5 will hold a database one and one-half times the 
size that an 850 drive will hold. It's also important to note 
that, the smaller you define your records, the more records 
you can fit on a disk. 

Typing Create-a-base. 

The instructions below should be followed exactly to cre- 
ate your copy of Create-a-base. 

Type in Listing 1, using the BASIC Editor II (in issue 
47 of ANALOG Computing) to verify your work. Be sure 
to save a backup copy. 

Place a disk containing DOS in drive 1, and run the pro- 
gram created from Listing 1. Two files, MLl.LST and ML2. 
LST, will be written to your disk. Leave this disk in drive 

1 until all the steps below have been completed. 
After clearing your computer's memory, type in Listing 

2 using the BASIC Editor II to verify your work. Be sure 
to save a backup copy. Run the program created from List- 
ing 2. Two files, AUTORUN.SYS and CHSET.PMG, will 
be written to your disk. 

After clearing your computer's memory, type in Listing 
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3 using the BASIC Editor II to verify your work. Save a 
copy to disk. 

Load the program created from Listing 3 into memory 
and merge the file ML1.LST by typing ENTER "D.-MLl. 
LST" and pressing RETURN. Save the resultant program 
to disk under the filename CREATEAB.ASE. 

After clearing your computer's memory, type in Listing 

4 using BASIC Editor II to verify. Save a copy to disk. 
Load the program created from Listing 4 into memory 

and merge the file ML2.LST by typing ENTER "D-.ML2. 
LST" and pressing RETURN. Save the resultant program 
to disk under the filename SORT. 

Getting started. 

Once you've typed in all the listings (no simple task) 
and created a master disk, boot your system with the 
Create-a-base master disk in drive 1. The main program 
loads automatically and prompts you to insert your data- 
base disk. Since this is your first time using Create-a-base, 
remove the master disk and insert a blank disk (no need 
to format it first). Once you've done this, press START, 
and Create-a-base will inform you that this isn't a valid 
database disk. Press Y to format it. 

Now you can define your first database. Here's an exam- 
ple everyone can use. At the prompt for Database Name, 
type Phone Book and press RETURN. Note: remember to 
press RETURN after all entries, or Create-a-base will ig- 
nore that input. Next, it will ask you for a LABEL; enter 
NAME. Now Create-a-base will ask you to define the size 
of the field for NAME, enter 25. This gives you an input 
area of 25 bytes for NAME. When you press RETURN 
Create-a-base does some processing on your input and 
prints the label NAME to the screen, followed by twenty- 
five underline characters. Meanwhile, you're prompted in 
the status window. Press OPTION to define the next field , 
or press START when the whole record is defined. This 
time, press OPTION and use the following list to complete- 
ly define your Phone Book record: 



LABEL 


FIELD SIZE 


CONSOLE KEY 


STREET 


25 


OPTION 


CITY 


25 


OPTION 


STATE 


2 


OPTION 


ZIP CODE 


5 


OPTION 


PHONE* 


16 


START 



Once you've pressed START, Create-a-base does some 
processing and writes to the disk. When it's done, you'll 
have a database disk called Phone Book and Create-a-base 
will go into the "add records" mode. 

The next time you boot the Create-a-base master disk, 
insert this database disk at the prompt, and Create-a-base 
will go directly to the add records mode. 

Using the edit screen. 

To add records to the database, simply type in the per- 
son's name and press RETURN. The cursor automatically 
moves down to the street field and so on . . . When you've 
entered all the data for the first record, press START and 
you've written the first record to your Phone Book! 

Advanced editing. 

Pressing RETURN alone, without typing any text, moves 
the cursor down to the next field and leaves that field 



blank. However, if any text was on that line (as in update 
mode), it will be erased. Pressing SELECT allows you to 
move the cursor to the next field without erasing any text. 
The OPTION key changes modes. There are five modes 
— add, search, update, report and create. By pressing OP- 
TION five times, you can cycle through each mode. In all 
modes except create, the screen looks exactly the same, 
except for the "mode" in the status window. In create 
mode, pressing OPTION will bring you back to the add 
mode, while pressing START takes you to where you de- 
fined your database. If you accidentally press START, 
when you meant to press OPTION in create mode, press 
ESCape to return to the edit screen. Normally, while edit- 
ing, you press START only when you're done editing the 
record on the screen. It tells Create-a-base to process your 
input. 

Searching a database. 

To search the database for a certain record, press OP- 
TION until you're in search mode. Then type in the in- 
formation you want to search for. Remember to press 
RETURN after each field you enter, and press START to 
begin the search. For example, if you wanted to search for 
Charles Fogarty, you could enter Charles Fogarty, Fogarty, 
or even F. 

Create-a-base will search the database until it finds a 
match or comes to the end-of-file. If it finds a match, the 
record prints to the screen and prompts you to Continue 
(YIN) . Pressing Y continues the search, and any other key 
brings you back to the edit screen (still in search mode). 
You can then search for different records. By the way, if 
you don't type in any information for Create-a-base to 
search with before you press START, it defaults to all 
records, so everything's a match. 

You can also search on multiple fields. So, if you want- 
ed to find everyone with a last name of Fogarty, who lives 
in Hartford, with a zip code of 06118, you could enter that 
information in the appropriate fields (name, city and zip 
code), and then press START. Only those records match- 
ing all three fields will show up on the screen. 

Reporting. 

Report mode works exactly like search mode, except all 
the output goes to the printer. 

Updating records. 

Update mode also works like search mode, until it finds 
a matching record. Once it finds a match, you can make 
any changes to that record displayed on the screen. Press 
START and the new, updated record is written to the data- 
base. The old record is written over by the new one. To 
delete a record completely, press CTRL-D. 

Creating new databases. 

Create mode was used to create your Phone Book data- 
base. You define labels and fields to create new and differ- 
ent databases. Remember, you can only put one database 
on a disk. If you try to create a new database on the same 
disk as Phone Book, it will erase the old Phone Book data- 
base and start a new one. You may, however, create as 
many different databases as you want, as long as they're 
on separate disks. 
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Other functions. 

Pressing CTRL-P with a printer attached will print out 
the data currently displayed on the screen. This is some- 
times called a "screen dump." 

Pressing CTRL-S (for Sort) will prompt you to press OP- 
TION to resume editing, or press START to sort the data- 
base. Remember to insert the Create-a-base master disk 
before pressing START, because the sort program is sepa- 
rate from the editor. 

Once the sort program's running, it will read the whole 
database, sort it, and write it out to a new disk. So, after 
the sort, you'll have two copies of that particular database, 
the original and the sorted version. This gives you a back- 
up copy, in case of any problems during the sort (like a 
power outage). The sort also gets rid of any "deleted" 
records and recovers lost disk space. These "deleted" 
records are still taking up space on the disk, even though 
they don't show up when you search. 

A small database (one that can be sorted completely in 
RAM), takes a minute or two. The disk I/O takes consider- 
ably longer than the sort itself. Sometimes a large data- 
base won't fit into RAM all at once (only 48K), so I tried 
to use the available memory as efficiently as possible. 

After reading and writing the database in blocks (ap- 
proximately 25K on my system), Create-a-base reads the 
database a second time. This time it notes the position 
of each record on the disk and keeps only the sort field 
and pointers. Then it sorts the pointers and reorganizes 
the file on the disk. This pointer sort allows you to sort 
files much larger than your main memory could possibly 
hold. The sort program will also scale down the length 
of the sort field, to accommodate a very large database. 
What this means is, if the number of records multipled 
by the sort field length is greater than the number of 
records that will fit in RAM, the sort will systematically 
make the sort field 1 byte smaller, until all the records fit 
into RAM. A worst case would be that the sort field was 
only 1 byte long. The records would still be sorted in al- 
phabetical order, only with less precision. 

The following is a list of possible databases: 



Phone Book 




Bowler Stats 




Sports Stats 




NAME 


25 


TEAM 


25 


TEAM 


25 


STREET 


25 


NAME 


25 


NAME 


25 


CITY 


25 


DATE 


8 


NUMBER 


3 


STATE 


2 


SCORE#1 


3 


etc . . . 




ZIP CODE 


5 


SCORE#2 


3 






PHONE* 


16 


SCORE#3 


3 






Articles 




Disk Catalog 




Home Inventory 




MAGAZINE 


25 


DISKNAME 


25 


LOCATION 


25 


TITLE 


31 


FILENAME 


12 


SERIAL# 


25 


AUTHOR 


25 


TYPE 


10 


DATE 


8 


MONTH 


9 


AUTHOR 


25 


DESCRIPT 


31 


YEAR 


4 


COMMENTS 


31 


VALUE 


7 


PAGE* 


4 










DESCRIPT 


31 











Subroutines. 

Create-a-base has a number of relocatable machine lan- 
guage routines which can be used in other BASIC pro- 
grams. 

MATCHS checks if two BASIC string variables are equal. 
Call it with: X= USR(ADR(MATCH$),ADR(the first vari- 
able), ADRfsecond variable), LBNGTHfto compare). It com- 



SCHEMAS 



(1-51) boot program. 

(52-64) to check for valid 
cb disk. 

(52-91) display 

for accidental 
boot. 

(92-106) database name 
15 characters 

(107-108) number of 
fields in 
use. 
MAX. 16 

(109-140) length of corresponding 
field. 
MAX. 31 



SECTOR #2 





1 


2 


3 


4 


5 


6 


1 


8 


1 


A 


A 


B 


B 


C 


C 


D 


D 


9 


E 


E 


F 


F 


4 


9 


6 




17 


L 


A 


B 


E 


L 


§ 





1 


25 


L 


A 


B 


E 


L 


# 





2 


33 


L 


A 


B 


E 


L 


I! 





3 


41 


L 


A 


B 


E 


L 


# 





4 


49 


L 


A 


B 


E 


L 


# 





5 


57 


L 


A 


B 


E 


L 


# 





6 


65 


L 


A 


B 


E 


L 


# 





7 


73 


L 


A 


B 


E 


L 


# 





8 


81 


L 


A 


B 


E 


L 


It 





9 


89 


L 


A 


B 


E 


L 


# 


1 





97 


L 


A 


B 


E 


L 


# 


1 


1 


105 


L 


A 


B 


E 


L 


# 


1 


2 


113 


L 


A 


B 


E 


L 


# 


1 


3 


121 


L 


A 


B 


E 


L 


II 


1 


4 









SECTOR #1 








1 


2 


3 


4 


5 


6 


7 


8 


1 


















9 


















17 








boot 








25 








program 








33 


















41 


















49 








C 


r 


e 


a 


t 


57 


e 




a 


- 


b 


a 


s 


e 


65 




( 


c 


) 




1 


9 


8 


73 


5 




C 




F 




F 





81 


g 


a 


r 


t 


y 




I 


I 


89 


i 









1 


2 


3 


4 


97 


5 
D 


6 

E 


7 
1 


8 
6 


9 




A 


B 


C 


105 





• 


1 


113 


2 


2 


3 


3 


4 


4 


5 


5 


121 


6 


6 


7 


7 


8 


8 


9 


9 



(141-143) record size 

MAX. 496 bytes 

(145-272) label for each field 
8 bytes each. 
MAX. of 16 labels 



SECTOR #3 





1 


2 


3 4 5 6 


7 8 


1 


L 


A 


B E L # 


1 5 


9 


L 


A 


B E L # 


1 6 


17 










25 










33 






reserved 




41 






for 

future 




49 






expansions. 




57 










65 










73 










81 










89 
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113 
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pares from left to right and returns if they're equal, or 
1 if they don't match. 

Note: it considers underline characters as wildcards (al- 
ways a match). 

MOVEMEMS moves memory. Call with: X=USR(ADR 
(MOVEMEMS), FROM ,TO, number of bytes to move, ADR 
(CONVERTS)). ADR (CONVERTS] is optional— if used, it 
converts ATASCII to screen display code (what you see on 
the screen). 

PARSES checks for valid input. Call with: X=USR 
(ADR (PARSE$J,IN,TYPE), where: IN is an ATASCII value 
(like GET #1,IN); TYPE = ASC("A") checks for alpha- 
numeric; or TYPE = ASC("N") checks for numeric. The 
values returned in X are: = invalid input; 1 = backspace 
was pressed; 2 = RETURN was pressed; and 3 = valid 
input. 

SCANKBS scans the keyboard and console keys. Call 
with: X=USR(ADR(SCANKB$)). It exits to BASIC when 
a key is pressed. The values returned in X are: 1 = a key 
was pressed; 2 = OPTION was pressed; 3 = SELECT was 
pressed; and 4 = START was pressed. 

SECTORIOS reads/writes disk sectors. Call with: X=USR 
(ADR(SECTORIO$),sector number,operation,ADR (buffer)), 
where sector number is any valid sector, and operation is 
ASC("R") for read or ASC("W") for write; the buffer must 
be at least 128 bytes long. 

SORTS is a bubble sort in machine language. It's not the 
best sort in the world, but it will sort 25K in about one 
minute. It sorts on one key field, which can be a maxi- 
mum of 255 bytes long. The records can be any size. Call 
with: X=l/SR(ADR(SORT$),ADR(file), number of records 
to sort, record length, sort-field length, starting position of 
the sort-field within a record). It returns for success, or 
nonzero when invalid parameters are passed to it. 

STRIPS strips trailing underline characters from a string 
variable. Call with: X=USR (ADR (STRIPS), ADR (string), 
LEN(string)-l)). The string must be at least 2 bytes long. 
It returns the position of the last nonunderline character 
inX. 

Well, that's it. Go forth and Create-a-base. B 

C.F. Fogarty worked in OP operations at Aetna for six 
years and is now a software programmer trainee. He 
bought his Atari 800 in 1982, and his CompuServe I.D. is 
74206,3453. He's married, has a son and enjoys trout fish- 
ing and trail riding. 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 



Listing 1. 
BASIC listing. 

E5 10 DIM M$(120),L$(12O) 

FD 20 GRAPHICS OiPOKE 710,0:? "PLACE FORM 
ATTED DISK IN DRIVE":? "THEN PRESS RET 



URH":INPUT L$:0PEN tti, 8 . 0, "D : ML1 .LST" 
F0 30 L$="78Q C0NVERT$=":L$(LEN(L$)+i)=CH 

R$(34) :N=29:G05UB 210:G0SUB 220 
MQ 40 L$="790 DLI$=" :L$(LEN(L$)+1)=CHR$(3 

4) :N = 24:G05UB 210:G0SUB 220 
«T 50 L$="795 MATCH$=":L$(LEN(L$)+1)=CHR$ 

(34) :N=42:G0SUB 210:G0SUB 220 
GX 68 L$ = "80O M0VEMEM$=":L$(LEN(L$)+i)=CH 

RS(34) :N=99:G0SUB 210:G0SUB 220 
PL 70 L$="805 MOVEMEM$(10O)=":L$(LEH(LS)+ 

1}=CHR$(34) :N=19:G0SUB 210:G0SUB 220 
FI 80 L$="820 PARSES::" :L$(LEN(L$)+1)=CHRS 

C341 :N=57:G0SUB 210:G0SUB 220 
TJ 90 L$="850 5CANKB$=" : L$ (LEN (L$) +1) =CHR 

$(34) :N=35:G0SUB 210:G0SUB 220 
EH 100 L$="855 5ECT0RI0$ = ":L$(LEN(L$)+i):: 

CHR$C34) :N=31:G0SUB 210:G0SUB 220 
ML 110 L$="860 STRIP$=":L$CLENtL$3+13=CHR 

$(34) :N=30:G05UB 210:G0SUB 220 
OH 120 L$="105O 5CHEMA$=":L$(LEN(L$)+1)=C 

HR$ (34) : 14 = 74 :G0SUB 210:G0SUB 220 
MF 130 CLOSE ttl:0PEN tti, 8, 0, "D : ML2 . LST" 
EU 140 L$="505 S0RT$=":L$(LEN(L$)+1)=CHR$ 

(34) :N = 74:G0SUB 210:G0SUB 220 
VM 150 L$="5i0 50RT$(75)=":L$(LEN(L$)+1):: 

CHR$C34) :Nr75:G0SUB 210:G0SUB 228 
PI 168 L$="515 S0RT$(150)=":L$(LEN(L$)+1) 

=CHR$(34) :N=75:G0SUB 210:G0SUB 220 
0D 170 L$="520 S0RT$(225)=":L$(LEN(L$)+i) 

=CHR$(34) :N=75:G0SUB 210:G0SUB 220 
Lft 180 L$="525 5ORT$(3O0)=":L$(LEN(L$)+1) 

=CHR$(34) :N=29:G0SUB 210:G05UB 220 
BH 190 L$="535 5EARCH$=":L$(LEN(L$)+1)=CH 

R$C34) :N=77:G0SUB 210:G0SUB 220 
YS 200 RESTORE 440:L$="500 5ECT0RI0$=" : L$ 

(LEN(L$)+i)=CHR$(34) : N = 31 : G0SUB 210:G0 

SUB 220:END 
TB 210 FOR X = i TO N:READ A : M$ CK) = CHR$ CA) : 

NEXT K ! RETURN 
VK 220 L$(LEN(L$)+i)=M$:L$(LEH(L$)+l)=CHR 

$(34):? »1;L$:m$= ,m, :retlirn 
AO 230 REM XXXXXX CONVERTS xxxxxx 
DC 240 DATA 24,201,32,144,12,201,96,144,1 

6,201,128,144,15,201,160,176,4,105,64, 

208,7,201,224,176,3,56,233,32,96 
FL 250 REM xxxxxx DLI$ xxxxxx 
MA 260 DATA 72,138,72,169,176,162,44,236, 

11,212,144,2,169,161,141,10,212,141,24 

,208,104,170,104,64 
KM 270 REM XXXXXX MATCH$ XXXXXX 
L5 280 DATA 104,104,133,204,104,133,203,1 

4,133,206,104,133,205,160,0,132,212,1 

32,213,162,1,104,104,240,14 
VB 290 DATA 133, 207, 177, 2G3, 209, 205, 208, 6 

,200,196,207,208,245,202,134,212,96 
PJ 300 REM XXXXXX MOVEMEMS XXXXXX 

CD 310 DATA 104, 133, 214, 201, 4, 240, 4, 201, 3 

,208,93,104,133,204,104,133,203,104,13 

3,206,104,133,205,104,133 
WX 320 DATA 208,104,133,207,165,214,201,4 

,208,13,169,76,133,214,184,133,216,104 

,133,215,24,144,4,169,96 
FD 330 DATA 133,214,160,8,166,207,240,24, 

132,207,177,203,32,214,0,145,205,230,2 

03,208,2,230,204,230,205 
RL 340 DATA 208,2,230,206,202,208,234,166 

,208,240,9,202,134,208,162,255,230,207 

,208,221,166,207,208,209,134 
VJ 350 DATA 212, 134, 213, 96, 170, 240, 5, 104, 

104,202,208,251,134,213,232,134,212,96 
UI 368 REM XXXXXX PARSES xxxxxx 
XV 370 DATA 104, 104, 104, 133, 203, 104, 104, 1 

33,204,162,0,134,212,134,213,232,169,1 

26,197,203,240,32,232,169,32 
HV 380 DATA 197,203,240,25,232,169,78,197 

,204,240,6,169,31,160,123,208,4,169,32 

,160,59,197,203,176,6 
PG 390 DATA 196,203,144,2,134,212,96 



18 ANALOG COMPUTING 



ATARI 8-BIT EXTRA 



ZH 400 REM XXXXXX SCANKBS XXXXXX 

K0 410 DATA 104,160,0,132,213,162,1,173,2 

52,2,201,255,208,18,232,173,31,208,201 
,3,240,10,232,201,5 
SF 420 DATA 240,5,232,201,6,208,229,134,2 

12,96 
XL 430 REM XXXXXX SECTORIOS XXXXXX 
JM 440 DATA 104,104,141,11,3,104,141,10,3 

,104,104,141,2,3,104,141,5,3,104,141,4 

,3,169,1,141,1,3,32,83,228,96 
JS 450 REM XXXXXX STRIPS XXXXXX 
LP 460 DATA 104,104,133,204,104,133,203,1 

04,104,133,205,169,0,133,213,164,205,1 

77,203,201,95,208,3,136,208 
EK 470 DATA 247,200,132,212,96 
ZM 480 REM XXXXXX 5CHEMAS XXXXXX 
IT 490 DATA 0,3,0,7,6,7,162,0,160,120,189 

,50,7,201,32,144,12,201,96,144,16,201, 

128,144,15 
ID 500 DATA 201,160,176,4,105,64,208,7,20 

1,224,176,3,56,233,32,145,88,200,232,2 

24,56,208,218,24,0 
0T 510 DATA 32,195,242,229,225,244,229,17 

3,225,173,226,225,243,229,32,40,99,41, 

32,49,57,56,53,32 
SL 520 REM XXXXXX SORTS XXXXXX 
NR 530 DATA 216,162,1,134,231,202,134,232 

,134,209,104,201,5,240,12,170,240,5,10 

4,104,202,208,251,232,134 
YF 540 DATA 212,96,104,133,204,133,208,10 

4,133,203,133,207,104,133,225,104,133, 

224,104,133,227,104,133,226,104 
OZ 550 DATA 104,133,230,104,133,229,104,5 

6,233,1,133,228,165,229,233,0,133,229, 

165,225,208,6,165,224,201 
HR 560 DATA 2,144,201,165,227,208,6,165,2 

26,201,1,144,191,165,230,201,1,144,185 

,24,165,228,101,230,133 
DT 570 DATA 214,165,229,105,0,133,215,165 

,227,197,215,144,166,165,226,197,214,1 

44,160,165,207,133,205,165,208 
OD 580 DATA 133,206,24,165,205,101,226,13 

3,207,165,206,101,227,133,208,24,165,2 

05,101,228,133,214,165,206,101 
CU 590 DATA 229, 133, 215, 24, 165, 207, 101, 22 

8,133,216,165,208,101,229,133,217,160, 

0,177,216,209,214,144,75,208 
LI 60O DATA 5,200,196,230,208,243,24,165, 

231,105,1,133,231,165,232,105,0,133,23 

2,165,231,197,224,208,175 
JJ 610 DATA 165,232,197,225,208,169,166,2 

09,240,36,134,231,202,134,232,134,209, 

165,293,133,207,165,204,133,208 
HG 620 DATA 56,165,224,233,1,133,224,165, 

225,233,0,133,225,208,135,165,224,281, 

1,208,129,96,208,188,165 
UK 630 DATA 226,133,212,165,227,133,213,1 

65,205,133,214,165,206,133,215,165,207 

,133,216,165,208,133,217,160,0 
PU 648 DATA 166,212,240,27,132,212,177,21 

4,72,177,216,145,214,104,145,216,230,2 

14,208,2,230,215,230,216,208 
DD 650 DATA 2, 230, 217, 202, 208, 231, 166, 213 

,240,9,202,134,213,162,255,230,212,208 

,218,166,212,208,286,232,134 
DB 660 DATA 209,208,175 
DK 670 REM XXXXXX SEARCHS XXXXXX 
5R 680 DATA 104,104,133,204,104,133,203,1 

04,133,20 6,104,133,205,104,104,133,20 7 

,169,0,133,212,133,213,162,1 
SM 690 DATA 24,165,203,101,207,133,203,16 

5,204,105,0,133,204,24,165,212,105,1,1 

33,212,165,213,105,0,133 
JL 70O DATA 213,224,1,208,8,202,24,165,20 

7,105,3,133,207,160,0,177,203,209,205, 

268,210,200,192,3,208,245,96 



Listing 2. 
BASIC listing. 



LP 10 GRAPHICS 

UF 20 ? "CREATE-A-BA5E MASTER DISK MAKER" 

MY 30 ? :? "USE A FORMATTED DISKETTE WITH 

DOS. SYS AND DUP.SYS" 
HA 40 ? :? "PRESS [START! TO CONTINUE..." 
GH 50 IF PEEKI53279J <>6 THEN 50 
GH 60 ? :? "WRITING AUTORUN . SYS . . . " 
SG 70 OPEN ttl,8,0, ,, D:AUTORUN.SYS":RE5TORE 

100 
DP 80 READ A:IF A=-999 THEN 200 
TB 90 PUT ttl,A: GOTO 80 
GH 100 DATA 255,255,160,6,162,6 
KH 101 DATA 76,175,6,175,6,251 
.Wte 102 DATA 6,160,11,185,0,228 
OD 103 DATA 153,163,6,136,16,247 
ZN 104 DATA 169,222,141,167,6,169 
IA 105 DATA 6,141,168,6,172,170 
LP 106 DATA 6,174,169,6,232,208 
KG 107 DATA 1,200,142,246,6,140 
MA 108 DATA 247,6,169,163,141,33 
ET 109 DATA 3,169,6,141,34,3 
¥L 110 DATA 96,172,0,6,208,10 
FE 111 DATA 169,0,141,33,3,169 
AD 112 DATA 228,141,34,3,185,1 
GF 113 DATA 6,206,0,6,72,32 
CG 114 DATA 251,6,104,160,1,96 
GD 115 DATA 253,6,255,6,108,250 
JK 116 DATA 191,68,2,68,2,0 
UK 117 DATA 9,0,9,0,1,226 
ZZ 118 DATA 2,227,2,160,6,224 
PJ 119 DATA 2,225,2,253,6,0 
SH 120 DATA 6,19,6,18,155,69 
WW 121 DATA 83,65,46,66,65,69 
Yll 122 DATA 84,65,69,82,67,58 
FT 123 DATA 68,34,78,85,82 
MR 124 DATA -999 
KL 200 CLOSE ttl : OPEN ttl, 8, 0, "D : CH5ET . PMG" 

:RESTORE 10OO 
10 210 ? :? "WRITING CH5ET . PMG . . . " 
TC 220 READ A : IF A=~999 THEN 240 
iMi 230 PUT ttl,A:GOTO 220 
HW 240 FOR K=l TO 510:PUT ttl, 0: NEXT X : PUT 

ttl, 155 
UL 250 ? :? "DON'T FORGET TO PUT FILES:": 

? "CREATEAB.ASE & SORT.":? "ON THIS DI 

SK." 
#101 1OO0 DATA 0,0,0,0,0,0 
AN 10O1 DATA 0,0,0,24,24,24 
PC 1002 DATA 24,0,24,0,0,102 
HR 1003 DATA 102,102,0,0,0,0 
L0 1O04 DATA 0,102,255,102,102,255 
EB 1005 DATA 102,0,24,62,96,60 
PI 1006 DATA 6,124,24,0,0,102 
KW 1007 DATA 108,24,48,102,70,0 
FO 1008 DATA 28,54,28,56,111,102 
CC 10O9 DATA 59,0,0,24,24,24 
IB 1010 DATA 0,0,0,0,0,14 
ZF lOll DATA 28,24,24,28,14,0 
DW 1012 DATA 0,112,56,24,24,56 
UP 1013 DATA 112,0,0,102,68,255 
PK 1014 DATA 60,102,0,0,0,24 
Si 1015 DATA 24,126,24,24,0,0 
JU 1016 DATA 0,0,0,0,0,24 
YL 10I7 DATA 24, 48, O, O, O, 126 
BM 1018 DATA 0,0,0,0,0,0 
EC 1019 DATA 0,0,0,24,24,0 
HE 1020 DATA 0,6,12,24,48,96 
MP 1021 DATA 64,0,0,60,102,110 
Pl> 1022 DATA 118,102,60,0,0,24 
VJ 1023 DATA 56,24,24,24,126,0 
VN 1024 DATA 0,60,102,12,24,48 
TO 1025 DATA 126,0,0,126,12,24 
LP 1026 DATA 12,102,60,0,0,12 
KM 1027 DATA 28,60,108,126,12,0 
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Create-a-base 



continued 



CK 


1028 


DATA 


CY 


1029 


DATA 


00 


1830 


DATA 


HD 


1031 


DATA 


PY 


1032 


DATA 


TD 


1033 


DATA 


FF 


1034 


DATA 


VU 


1035 


DATA 


AK 


1036 


DATA 


IZ 


1037 


DATA 


C5 


1038 


DATA 


R5 


1039 


DATA 


KG 


104O 


DATA 


SE 


1041 


DATA 


XX 


1042 


DATA 


YF 


1043 


DATA 


M5 


1044 


DATA 


RX 


1045 


DATA 


MY 


1046 


DATA 


BO 


1047 


DATA 


HI 


1048 


DATA 


DC 


1049 


DATA 


DH 


1050 


DATA 


UC 


1051 


DATA 


DA 


1052 


DATA 


RM 


1053 


DATA 


OU 


1054 


DATA 


WV 


1055 


DATA 


MB 


1056 


DATA 


QG 


1057 


DATA 


XQ 


1058 


DATA 


TF 


1059 


DATA 


ftU 


1060 


DATA 


CF 


1061 


DATA 


LQ 


1062 


DATA 


OH 


1063 


DATA 


KA 


1064 


DATA 


QY 


1065 


DATA 


TY 


1066 


DATA 


CE 


1067 


DATA 


ON 


1068 


DATA 


XR 


1069 


DATA 


OS 


1070 


DATA 


ZB 


1071 


DATA 


TG 


1072 


DATA 


PA 


1073 


DATA 


AZ 


1074 


DATA 


OL 


1075 


DATA 


lift 


1076 


DATA 


VA 


1077 


DATA 


ZK 


1078 


DATA 


UD 


1079 


DATA 


HY 


1080 


DATA 


m 


1081 


DATA 


VK 


1082 


DATA 


HS 


1083 


DATA 


QR 


1084 


DATA 


VU 


1085 


DATA 


VH 


1086 


DATA 


NO 


1087 


DATA 


MA 


1088 


DATA 


K5 


1089 


DATA 


XK 


1090 


DATA 


MU 


1091 


DATA 


FA 


1092 


DATA 


XJ 


1093 


DATA 


ME 


1094 


DATA 


NI 


1095 


DATA 


vq 


1096 


DATA 


EL 


1097 


DATA 


TA 


1098 


DATA 


X5 


1099 


DATA 


ON 


1100 


DATA 


Aft 


1101 


DATA 


ZG 


1102 


DATA 


BH 


1103 


DATA 


PA 


1104 


DATA 


YN 


1105 


DATA 



0,126,96,124,6,102 

60,0,0,60,96,124 

102,102,60,0,0,126 

6,12,24,48,48,0 

0,60,102,60,102,102 

60,0,0,60,102,62 

6,12,56,0,0,0 

24,24,0,24,24,0 

0,0,24,24,0,24 

24,48,6,12,24,48 

24,12,6,0,0,0 

126,0,0,126,0,0 

96,48,24,12,24,48 

96,0,0,60,102,12 

24,0,24,0,0,60 

102,110,110,96,62,0 

0,24,60,102,102,126 

102,0,0,124,102,124 

102,102,124,0,0,60 

102,96,96,102,60,0 

0,120,108,102,102,108 

120,0,0,126,96,124 

96,95,126,0,0,126 

96,124,96,96,96,0 

0,62,96,96,110,102 

62,0,0,102,102,126 

102,102,102,0,0,126 

24,24,24,24,126,0 

0,6,6,6,6,102 

60,0,0,102,108,120 

120,108,102,0,0,96 

96,96,96,96,126,0 

0,99,119,127,107,99 

99,0,0,102,118,126 

126,110,102,0,0,60 

102,102,102,102,60,0 

0,124,102,102,124,96 

96,0,0,60,102,102 

102,108,54,0,0,124 

102,102,124,108,102,0 

0,60,96,60,6,6 

60,0,0,126,24,24 

24,24,24,0,0,102 

102,102,102,102,126,0 

0,102,102,102,102,60 

24,0,0,99,99,107 

127,119,99,0,0,102 

102,60,60,102,102,0 

0,102,102,60,24,24 

24,0,0,126,12,24 

48,96,126,0,0,30 

24,24,24,24,30,0 

0,64,96,48,24,12 

6,0,0,120,24,24 

24,24,120,0,0,8 

28,54,99,8,0,0 

0,0,0,0,0,0 

255,0,127,192,135,132 

132,135,192,127,255,0 

119,37,38,37,0,255 

254,3,65,65,65,113 

3,254,24,24,24,248 

248,0,0,0,24,24 

24,248,248,24,24,24 

0,0,0,248,248,24 

24,24,127,192,135,133 

133,135,192,127,255,0 

119,82,114,66,0,255 

255,0,93,85,85,93 

0,255,254,3,33,161 

97,33,3,254,127,192 

135,132,129,135,192,127 

255,0,116,100,68,119 

0,255,255,0,119,100 

68,119,0,255,254,3 

113,33,33,33,3,254 

127,192,135,134,132,135 

192,127,255,0,119,68 



BE 
RN 
EH 



BG 1106 
P5 1107 
YP 1108 
YA 1109 
WY 1110 
LR 1111 
BG 1112 
GE 1113 
EB 1114 
OH 1115 
YM 1116 
RV 1117 
PM 1118 
1119 
1120 
1121 
0« 1122 
VH 1123 
ZL 1124 
CJ 1125 
AP 1126 
PE 1127 
CL 1128 
HP 1129 
AD 1130 
YX 1131 
UZ 1132 
MM 1133 
JS 1134 
BU 1135 
AB 1136 
SZ 1137 
ER 1138 
VX 1139 
BV 1140 
PL 1141 
UP 1142 
BW 1143 
BO 1144 
RT 1145 
YK 1146 
VA 1147 
MD 1148 
OT 1149 
BP 1150 
YX 1151 
JH 1152 
NA 1153 
WK 1154 
UX 1155 
LU 1156 
ME 1157 
P& 1158 
IM 1159 
TI 1160 
GO 1161 
1162 
1163 
CL 1164 
YP 1165 
YE 1166 
PP 1167 
GP 1168 
1169 
1170 



JO 
BN 



FA 
YH 



QC 1171 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 




GO 1 REM 
GE 2 REM 
LP 3 REM 
NJ 4 REM 



Listing 3. 
BASIC listing. 



Create-a-base 

(c) 1985 C.F.Fogarty III 

Version 3.1 Nov. 82, 1985 
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ATARI 8-BIT EXTRA 



CU 16 POKE 1664,1G4:P0KE 1665,64:P0KE 566 

,128:P0KE 567,6 
RO 106 GOTO 745 
PC 105 REM EGEGgE 
RP 110 TRAP ERRORHANDLER 
PD 115 KBIPS = ,, _":KBIP$CRECSIZE)= ,, _":KBIP$ 

C1+CRECSIZE>1))=KBIP$:DISKIPS=KBIPS:FI 

ELD=NUMFIELDS 
KZ 126 X = USRCMOVEMEM, ADRCKSCRNS) , SCREEN, 9 

60, CONVERT! 

10 125 G05UB 5ELECT:G05UB 206 

VX 136 KBIPSCFXCFIELD-l)+i,FXCFIELD))=TMP 

2$ 
PF 135 GOTO 125 

xv 140 rem EEHBOaa 

JT 145 IF START=646 THEN POINT 82, SECT, CH 

AR:GOTO 155 
HG 150 IF 10=12 THEN NOTE 82, SECT, CHAR 
OC 155 ICBLH=INTCREC5IZE/256) :ICBLL=RECSI 

ZE~ICBLH*256 
TU 160 POKE 866,ICC0M:P0KE 872, ICBLL : POKE 
873,ICBLH:P0KE 868, ICBAL : POKE 869, ICB 

AH 
TD 165 X=USRCCI0,32) :IF PEEK C867) =136 THE 

N 186 
FU 170 IF PEEKC867)>3 THEN POP :GOTO ERRO 

RHANDLER 
AA 175 RETURN 
AR 180 SOUND 8,58,18,16 
FD 185 X = U5RCM0VEMEM,ADRCPR0MPTSC16D) , SC 

REEN+720,46,C0NUERTJ :CLOSE B2:0K=0 
AA 190 FOR X=l TO 58 : NEXT XiSOUND 0,0,0,6 

:FOR X = l TO 200:NEXT X 
KP 195 POP IGOTO PROC ESS 

cr 200 rem H3HEH5HrJ 

EC 205 TEMP$="" 

QQ 216 POKE KEYBD,255:X=USRCSCANKB) 

TH 215 ON X GOSUB KEYPRESS, OPTION, SELECT, 

START 
MG 226 GOTO 216 
RP 225 REM IM*JJrl*M 
PK 236 GET 8i,IN:IF IN = 27 THEN POP :POP : 

CLOSE 82:0K=0:G0T0 PROCESS 
NG 235 X=USRCPARSE,IN,TYPE) : ON X GOTO BAC 

KSPACE,EOL,LEGALIP 
EF 240 IF IN = 19 THEN GOSUB 1325 
OF 245 IF IN = 16 THEN GOSUB 650:REM SCREEN 

DUMP 
YE 250 IF NOT CIN=4 AND START=640) THEN 

286 
LR 255 KBIP$ = ,, -| ,, :KBIP$CRECSIZE)= ,, H":KBIPS 

C1+ CRECSIZE>1) ) =KBIP$ 
LC 266 SOUND 6,100,16,16 
YM 265 X = USRCMOVEMEM,ADRCPROMPTSC20D) , SC 

REEN+720, 40, CONVERT) 
ZX 270 FOR X=i TO 50:NEXT XiSOUND 6,0,0,6 

:FOR X = l TO 200:NEXT X 
EU 275 GOTO START 

EZ 280 POKE 702,64:P 0KE 694,0: RETURN 
MU 285 REM liftTdttH J:TH J 

mx 290 temp=lenctemps) :if temp<2 then tem 

pS="":goto prttoscreen 
ta 295 temp$ = tempsc1,temp-1) :got0 prttosc 

REEN 
AN 300 REM HJTJ 
CN 305 POP JGOTOPRTTO SCREEN 

oy 316 rem [oaaBaa 

IP 315 TEMP=LEN CTEMPS) : IF TEMP=MAX THEN R 
ETURN 

11 320 TEMP S CTEMP +1 ) = CHR$ C IN) 
ID 325 REM IJ;»;miiB.-M-re^ 

SM 330 TMP2$=TEMPS:IF LEN CTEMPS) <MAX THEN 

TMP2$CLENCTMP2$)+1,MAX)=UNDERLINE$ 
SZ 335 X=USR CMOVEMEM, ADRCTMP2S) , SCREEN+LO 
C, MAX, CONVERT) 

ZH 340 RETURN 

SZ 345 REM EBOli 

OX 350 X=USR CMOVEMEM, ADR COFFS) ,PMBASE, 256 



FP 355 FIELD=FIELD+1:IF FIELD>NUMFIELDS T 

HEN FIELD=1 
BU 360 X=U5R CMOVEMEM, PLAYER, PMBASE+40+FIE 

LD*8,8):P0KE 53277,3 
FM 365 LOC = 49 + FIELDK40:TEMPS= ,,M 
NU 376 MAX=FLCFIELD) 

AC 375 RETURN 

DO 386 REM BEBHED 

OJ 385 CLCSE 82:0K=8 

IC 398 OX=OX+l:IF 0X>4 THEN 0X=0 

MB 395 X=USRCM0gEMEM,ADRC0PTABLE$C0X*6+l) 

) , ADRCKSCRNSC767)) ,6) : D5CRN$=KSCRN$ 
KY 400 X=USRCMOgEMEM, ADRCKSCRNS), SCREEN, 9 

60, CONVERT) 
UT 405 FIELD=NUMFIELDS: GOSUB SELECT 
PW 410 IF 0X = 4 THEN X = USR CMOVEMEM, WINDOW, 

SCREEN+680, 286, CONVERT) :0K=1 

ZE 420 RETURN 

YI 425 REM Hf;1:i( 

KT 430 POP :POP :IF OK THEN 455 

VV 435 I0=4:IF 0X = 6 THEN 10=9 

YA 440 IF 0X = 2 THEN 10=12 

BH 445 CLOSE 82:0PEN 82, 10, 0, "Dl ! DATABASE 

II 

CO 450 0K=1 

YP 455 ON O X G OTO 495,495,495,955 

SA 466 REM GEE 

CK 465 ICC0M=ll:ICBAH=INTCADRCKBIPS)/256) 

:ICBAL=ADRCKBIPS)-ICBAH*256:IF KBIPSO 

DISKIPS THEN 480 
RM 470 SOUND 6 , 200, 10 , 10 i X=U5R CMOgEMEM, AD 

R (PROMPTS (241)) , SCREEN+726, 46, CONVERT) 
RO 475 FOR X=l TO 50:NEXT XiSOUND O,O,0,0 

:GOTO 485 
TB 488 GOSUB 140 

EP 485 OK=0 :CLOSE 82:G0T0 PROCESS 
KM 490 REM IM.UiMWIIJiJ.H-tW.HJiJ.ti 
FV 495 ICC0M=7 :ICBAH=INT CADR CDI5KIPS) /256 

) :ICBAL=ADRCDISKIP$)-ICBAH*256 
SM 500 GOSU B 140 
ED 505 REM [*Ji]IIJ:1 ; U 

WW 510 IF DISKIPS CI, 1) ="4 " THEN 500 
MH 515 NG = 0: AMATCH=1 
WM 520 FOR I=0 TO NUMFIELD5-1 : TEMPS=KBIPS 

CFXCI)+1,FXCI + D) :IF TEMPS CI, 1)="_ M TH 

EN 545 
JX 525 IF LEN (TEMPS) =1 THEN PTR = 1 1 GOTO 53 

5 
TR 536 PTR=U5RCSTRIP, ADRCTEMPS) ,FLCI+1)-1 

)!IF PEEKC764)=28 THEN POP :GOTO PROCE 

55 
SR 535 FOR J=l TO FL CI+1) -PTR+1 : NG=USR CMA 

TCH,ADRCDISKIP$CFXCI)+J)),ADRCTEMPS) ,P 

TR):IF NG=6 THEN J=FLCI+1)+1 
RR 546 NEXT J : IF NG THEN I=NUMFIELD5 : AMAT 

CH = 6 
GF 545 NEXT I : IF NOT AMATCH THEN 566 
HK 556 REM GMBEBBGl 
JA 555 X = U5RCM0VEMEM, SCREEN, ADRCTSCRNS), 9 

66) IREM SAVE SCREEN 
OC 568 FOR 1=6 TO NUMFIELD5-1 : X=I*46 i DSCR 

N$C90+X,89+X+FLCI+1))=DISKIP$CFXCI)+1, 

FXtl + D) :NEXT I 
FV 565 X=USR CMOVEMEM, ADR CD5CRNS) , SCREEN, 9 

66, CONVERT) 
TP 570 IF 0X=2 THEN 605:REM UPDATE-CONT 
WI 575 IF 0X=3 THEN GOSUB 656:G0T0 495:RE 

M REPORT-CONT 
DF 588 X=USR CMOVEMEM, ADR CPROMPTS) ,SCREEN+ 

720, 40, CONVERT) :REM CONTY/N 
VU 585 POKE 702,64:P0KE 694,0:GET 81, IN 
XW 590 IF IN = A5CC ,, Y M ) THEN X = USR CMOVEMEM, 

ADRCTSCRNS) , SCREEN, 960) :GOTO 495 
VL 595 IF IN=16 THEN IN=0:GOSUB 650:G0T0 

585 
DM 60O OK=0 :CLOSE 82:G 0T0 PROCESS 

gp 605 rem maaaEHgnai 
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HZ 610 X = USR (MOVEMEM, ADR (PROMPTS (41) ), SCR 

EEN+720, 40, CONVERT) : REM CHANGE IT Y/N 
VH 615 POKE 702,64:P0KE 694,0:GET 81, IN 
NH 620 IF I NOASCC'Y ") THEN 580 
YP 625 REM MlMJMiMi 
JA 63© X=USR(MOVEMEM, ADR(PROMPTSCSI)) ,SCR 

EEN+720, 40, CONVERT) : REM CHANGE OR CTRL 

/D 
EQ 635 TIPS=KBIPS:KBIP$=DISKIPS:FIELD=NUM 

FIELDS :START=640:0PTI0N=340: GOTO PROCE 

55 + 20 
I>U 640 POP :POP :ICC0M=11:ICBAH=INT(ADRCK 

BIPS)/256) :ICBAL=ADR(KBIP$)-ICBAH*256: 

G05UB 140:5TART=425:KBIPS=TIPS 
LB 645 0PTI0N=385JG0T0 580 
IT 650 REM lrHJil:lg»M!¥l 
ON 655 TRAP 690 

NL 660 CL05E tt7:0PEN 87, 8, 0, "P I" 
UN 665 FOR 1=0 TO NUMFIELD5-1 : IF PEEK CKEY 

BD)=28 THEN POP : GOTO PROCESS 
NO 670 IF IN=16 THEN ? 87; SCHEMAS (145+1*8 

,152+1*8) J">" jKBIPS(FX CI) + 1,FX(I + D) :G 

OTO 680 
IN 675 ? 87; SCHEMAS (145+1*8, 152+1*8) ;">") 

DI5KIP$(FX(I)+1,FX(I + D) 
XI 680 NEXT I:? 87:CL05E 87 : TRAP ERRORHAN 

DLER 
AH 685 RETURN 

oh 690 rem H3EIOM3aiEQ 

AD 695 X=USR(MOUEMEM, ADR (PROMPTS (121) ) , SC 

REEN+720 , 48, CONVERT) 
HP 70O REM fr i l:rfl:llM:i.»ail 
KJ 70S 5H$="| 

I Error 8 
ne 8 |" 
YB 710 5HS(81)="| 

| Press 
I" 
LY 715 TEMP=PEEK(195) : TEMPS=STRS (TEMP) :5N 

$ (50, 49 + LEN (TEMPS) ) =TEMPS 
YS 720 TEMP=PEEK(186)+PEEK(187)*256:TEMP$ 
=STRS(TEMP) : SMS (72, 71 + LEN (TEMPS) )=TEMP 

MM 725 X=USR(MOVEMEM, ADR(SHS) ,SCREEH+760, 

160, CONVERT) 
AY 730 IF PEEKC53279) <>6 THEN 730 
LO 735 CLOSE 82:CLOSE 87:OK=0 
OA 740 GOTO PROCESS 
RM 745 REM OCHJJjHOBlJ 
FU 750 DIM BLANKS (40)' CIOS (7) , CONVERTS C29 

) ,DISKIPS(496) ,DLIS(24) , DSCRNS (966) 
PZ 755 DIM FL(16) ,FXC16) 
RX 760 DIM KBIP$(496),K5CRN$C960),MATCH$( 

42) , M0VEMEM$(118) ,0FF$C256) ,0PTABLE$(3 

O) , PARSES (57) , PLAYERS (8), PROMPTS C280) 
NG 765 DIM 5CANKBS (35) , SCHEMA$ (384) , SECTO 

RI0$(31) ,STRIP$(30) ,SM$(160) ,TEMP$(40) 

, TIPS (496) ,TMP2$(40) ,TSCRN$(960) 
MC 770 DIM UNDERLINE$(4O),HINDOM$(280) 
EM 775 BLANK$= M "! BLANKS (40) = BLANKS(2 

) =BLANK$ ! CIO$="hhh£LVE" 
YX 785 DISKIPS="_":DISKIPS(496)="_":DISKI 

P$(2)=DISKIP$ 
JO 810 OFF$= ,, ¥ ,, :OFF$C256)="¥":OFF$12)=OFF 

:..'* $ 
YZ 815 QP TABLES = "tj 

FM 825PARSE$(25,25)=CHR$C155) :PARSE$(44, 

44)=CHR$(34) 
PR 830 PLAYER$=CHR$(255) : PLAYERS (8) =CHRS ( 

255) :PLAYER$(2)=PLAYERS 
AL 835 PROMPT$="i ** Continue? (Y 

/N) ** 1 , ** change it? 



-File ***- 
LETED. **- 



-** 



occurred on li 



tH to Recover 



Add searchUPdateReport 



(Y/N) ** 1" 

5H 840 PROMPTS (81)=" i—* Make changes or ¥ 

h |&D to delete. *— i i ** Printer 

not online **- 



UR 846 PR0MPT$(241): 
Record ***- 



DE 
-*** Ewpty 



VV 865 UNDERLINES^"-": UNDERLINES (40) =•■_ 

UNDERLINES (2) ^UNDERLINES 
PL 870 MINDOHSz" r 



-il 



Press | tH to 
create a NEM 



YF 875 HIND0MS(81)=" 

Press /\Jt to use 

- the CURRENT 
AN 880 MIND0MS(161)="| database, 
database. 



RD 885 MIHD0M$( 241)='"-; 

RM 890 CIO=ADR(CIOS) : CONVERT=ADR (CONVERTS 

) :MATCH=ADR(MATCHS) :MOVEMEM=ADRCMOVEME 

MS) :PARSE=ADR(PAR5E$) 
00 895 PLAYER = ADR (PLAYERS) : 5CANKB = ADR (SCA 

NKBS) :5ECT0RI0=ADR(SECT0RI0$) :STRIP=AD 

R(STRIPS) :MINDOM=ADR(HINDOMS) 
UK 900 KEYBD=764:KEYPRESS=230:BACKSPACE=2 

90:EOL=305:LEGALIP=315:PROCE55rl05:PRT 

T0SCREEN=330 
tlZ 905 OPTION=380:SELECT=35O:START=425:ER 

R0RHANDL ER = 705 . 

vk 910 rem ><:miiiiM=t»«j:m 

HK 915 PM=PEEK(106)-8:CHSET=PM*256:P0KE 1 

06,PM:GRAPHICS 0:POKE 756, PM 
TP 920 CLOSE 81:0PEN 81 , 4 , 0, "D : CHSET . PMG" 
EE 925 POKE 853,PM:P0KE 852,0:P0KE 857,6: 

POKE 856,0:POKE 850 , 7 : X = USR (CIO, 16) 
XJ 930 CLOSE 81:0PEN 81,4,0,"K:" 
EO 935 PMBASE=CHSET+1024:POKE 704,212:P0K 

E 559,62:P0KE 623,1:P0KE 53256, 3 : POKE 

54279, PM:POKE 53248,48 
BH 940 X = USR(M0VEMEM,ADR(DLIS),1536,24) :D 

L=PEEK(560)+256*PEEK(561) :POKE DL+6,13 

OiPOKE DL+22,130:P0KE 512,0 
MN 945 POKE 513,6:P0KE 54286, 192 : POKE 710 

, 176 

xg 950 rem EpngoacEiai 

IU 955 GOSUB 1225 : X=USR (MOVEMEM, ADR (KSCRN 
$), SCREEN. 960, CONVERT) :POKE 53277,0 

BM 960 SH$="| Insert database diskette i 
nto Disk Drive 81, 

I" 
MT 965 SMS (81) r" | 

I | and press | tH to c 

ontinue. . . |" 
MT 970 X=U5R (MOVEMEM, ADR CSMS) ,SCREEN+760, 

160, CONVERT) 
OH 975 IF PEEK (53279) <>6 THEN 975 
LZ 980 TRAP 1025 
AO 985 5CHEMAS="¥": SCHEMAS (384) ="¥":SCHEM 

A$(2)=SC HEMA$ 

sm 990 rem BBEaBaniiEi 

XZ 995 FOR 1=0 TO 2 : X=USR CSECTORIO, 1+1, 82 

, ADR (SCHEMAS (1*128+1) ) ) : N EXT I 

EE lOOO IF SCHEMAS (52. 64) <> " M &±U i&BfrW 

" THEN 1025 
UP 1005 IF NOT RESTART THEN RESTARTS : GO 

SUB 1285!0X=5:G0SUB OPTIONiGOTO PR0CE5 

S 
ZV 101O SH$="| This is a Create-a-base di 

skette. |" 
OR 1015 SHS(4l)="| The database nawe is _ 



SI 102O X=USR (MOVEMEM, ADR (SCHEMAS (92)) , AD 

R(SW$(64)) ,15) :GOTO 1030 
NL 1025 SHS="| Not a Create-a-base dis 

kette. 



SU 845 PR0MPTS(161)="r 



-*** End-of 



CY 1030 SMS (81)=" I 

CY/N) I' 



ForMat it? 
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EQ 1035 X=U5R(M0VEMEM,ADR(5W$ 

, 160, CONVERT! : GET 81,IN:IF 

ESTART THEN GOSUB 1285.-G0T 

AU 1040 IF IN<>ASC("Y") THEN 

5M 1045 CLOSE 82 : XIO 254,82, O 

CG 1055 SCHEMA$(75)="C.F.Foga 

3456789 ABCDE16001122334455 

CCDDEEFF496V" 

LA 1060 SCHEMA$(384)="¥":SCHE 

E MAS £1443 

KO 1065 5W$="| Enter your dat 

| | (Up to 15 Ch 



) ,SCREEN+760 
IN=27 AND R 
PROCESS 
960 

,0,"D1:*.*" 
rty III 012 
66778899AABB 

MA$(145)=SCH 

abase nane 
aracters) 



PK 1235 KSCRNS(41)=' 



OT 1070 SW$(81)=' 



SW 1075 X=USR(MOVEMEM,ADR(SW$) ,5CREEN+760 

,160,C0NUERTJ 
PK 1080 NUM=O:REC5IZE=0:OPTION=34O:5ELECT 

=0PTION:5TART=OPTION:TYPE=ASC("A") : MAX 

=15: L0C=824: GOSUB 200 
SP 1085 SCHEMA$(92,106)=TMP2$ 
TP 1090 SW$="| Enter a label: 

I | (Up to 8 characters) 



RT 1095 SW$(81)="| 

RJ 1100 X=USR(MOVEMEM, ADR(SW$) ,SCREEN+768 

,160, CONVERT) 
VL 1105 TYPE=ASC("A") : MAX=8 : L0C=823 : GOSUB 

200 : TEMP=LEN (TEMPS) 
MJ 1110 IF TEMP<MAX THEN TEMPS (TEMP+1, MAX 

)=BLANK$ 
AP 1115 SCHEMA* (145 + NUM*8, 144+ (NUM+1)*8):: 

TEMP$:NUM=NUM+I:TEMP$=STR$(NUM) 
XQ 1120 IF LEN(TEMP$)=1 THEN TEMP$(2)=TEM 

P$:TEMP$(1,1)="0" 
NO 1125 SCHEMA$(107,1O8)=TEMP$ 
YP 1130 5W$="| Enter size of field for 

. | | (MaxinuM size is 31 

bytes) |" 
IT 1135 5W$(27,41)=TMP2$:X=U5R(M0VEMEM,AD 

R(SH$),SCREEN+760, 160, CON VERT) 
US 1140 TYPE=ASC("N") : L0C=796 : MAX=2 : GOSUB 
200:TRAP 1130:TEMP=VAL(TEMP$) :IF TEMP 

>31 OR TEMP<1 THEN TEMP$="31" :TEMP=31 
DF 1145 TRAP 955 : RECSIZE=RECSIZE+TEMP : IF 

TEMP<10 THEN TMP2$=TEMP$ : TEMP$="0" : TEM 

P$C2)=TMP2$ 
KH 1150 TEMP=109+(NUM-1)*2:5CHEMA$(TEMP,T 

EMP+1)=TEMP$ 
TJ> 1155 TEMP$=5TR$(REC5IZE) 
KM 1160 IF LEN(TEMP$)<3 THEN TMP2$=TEMP$ : 

TEMP$="0": TEMPS (2) =TMP2$: GOTO 1160 
LU 1165 SCHEMA$(141,143)=TEMP$ 
OR 1170 GOSUB 1285:IF NUM=16 THEN 1200 
UA 1175 5W$="| Press /\i ■ to define anoth 

er field -0R- 

I" 
AB 1180 SW$(81)="| Press | i-4 after defin 

ing your LAST || field (Ma 

xiMUM 16 fields) . |" 
TB 1185 X=USR(MOVEMEM, ADR(SWS) ,SCREEN+760 

,160, CONVERT) 
AI 1190 IF PEEK(53279)=3 THEN 
ZY 1195 IF P EEK(53279) <> 6 THE 

ld 12S0 rem EEHBEaiEEE] 

KC 1205 FOR I=0 TO 2:X=USR(5E 

7,ADR(SCHEMAS(I*128+1))) :N 
CM 1210 CLOSE 82:0PEN 82, 8, 0, 

": CLOSE 82 
UU 1215 0PTI0N=380:SELECT=350:START=425:R 

ESTARTrOlTYPE^ASCC'A") 

WR 1220 GOTO 985 

CH 1225 REM KlUflltM!!!! 

OM 1230 KSCRH$=" Create-a-base (c) 1985 C 

.F.Fogarty III " 



1090 
IN 1190 

CTORIO, 1+1,8 
EXT I 
"DllDATABASE 



JR 1240 KSCRN$(720)= KSCRNS (82) =KSCRN$ 

(81) 
HI 1245 KSCRN$(721)="| 



TY 1250 KSCRN$(76i)="|/\ii NJ*WJ Mode. 

¥ r |&S-Sort db. |" 
ZE 1255 KSCRN$(801)="|k"~ Field to EDIT. 

¥r |&P-Printout.T" 
OV 1260 KSCRN$(841)="J| t4 When DONE Edit 

ing. <DATABA5E NAME>|" 
GJ 1265 KSCRN$(881)="|_j ■!+ CANCEL Operati 

on. J 7 ' 

KA 1270 K5CRN$(92i)=' " 



J ■■ 



LU 1275 5CREEN=PEEK(88)+256*PEEK(89) 

BB 1280 RETURN 

IF 1285 GOSUB 1225 : NUMFIELD5=VAL (SCHEMA* ( 

107,108)) :FL(0)=0:FX(0)=0 
JD 1290 FOR I=0 TO NUMFIELDS-1 
BP 1295 X=I*40:KSCRN$(81+X,88+X)=5CHEMA$( 

145+1*8,152+1*8) :KSCRN$(89+X,89+X)=">" 
ON 1300 IN=109+I*2:IN=VAL(5CHEMA$(IN.IN+1 

)) :K5CRN$(90+X,89+X+IN)=UNDERLINE5:FL( 

I+1)=IN:FX(I+1)=FX(I)+IN 
HJ 1305 NEXT I:KSCRN$(905,919)=SCHEMA$(92 

,106) :DSCRN$=KSCRN$:TSCRN$=K5CRN$ 
AU 1310 RECSIZE=VAL(SCHEMA$(141.143)) 
IF 1315 X=USR(MOVEMEM,ADR(KSCRNS) , SCREEN, 

960, CONVERT) 
AL 1320 RETU RN 
BO 1325 REM EEHJ 
ZA 1330 SH$="| Insert Create-a-base Maste 

r disk and | | Press | tHI to SORT datab 

ase. |" 
LQ 1335 SW$(81)="| - OR - 

1 Press Aii to use CU 

RRENT database. |" 
RZ 1340 X=USR(M0VEMEM,ADR(SW$),5CREEN+760 

,160, CONVERT) 
MV 1345 IF PEEK(53279)-3 THEN RETURN 
BJ 1350 IF PEEK(53279) <>6 THEN 1345 
EK 1355 POP :RUN "D:SORT" 



Listing 4. 
BASIC listing. 



WO. 1 REM 

AR 2 REM 

SZ 3 REM 

NJ 4 REM 

AE 100 POKE 106, PEE 

KT 105 GOSU B 475:G0 

RC HO REM EEHMHS 

LL 115 ICBAH=INT(IC 

ICBAH*K256:P0KE 

ALIPOKE 853,ICBA 
RZ 120 POKE 857, ICB 

EEK(851)>K3 AND 

OP 
Zfl 125 RETU RN 
RA 130 REM 33333 
NU 135 ? 86:? 86;"* 

CLOSE 8i:0PEN 81 

PTR=LENGTH+K1:PT 
AL 140 S=A5C(BUFR$( 

))*K256:C=ASC(BU 

,S,C:ICC0M=K7:IC 
TH 145 POSITION KO, 

;eof;" " 
BL 150 IF BUFR$(PTR 

R2+K2) THEN 185 
JS 155 S2=ASC(BUFR$ 

+K1))*256:C2=A5C 



sort for Create-a-base 
CO 1985 C. F.Fogarty III 
Version 3.4 August 9.1985 



K(106)+8:P0KE 53277,0 
TO 215 

BAL/K256) : ICBAL=ICBAL- 
85O,ICC0M:POKE 852, ICB 
H:POKE 856,ICBLL 

lh:x=usr(cio,ki6) :if p 

PEEK(851) <>136 THEN ST 



reorg in progress...": 
,K12,K0,"D1: DAT ABASE": 
R2=FX+K1:E0F=CTR:K=K1 
PTR))+ASC(BUFR$(PTR+K1 
FR$(PTR+K2)) :POINT 8K1 
BAL=TEMP:G05UB 115 
4:? 8K6;"C0UNTD0HN. . ." 

,PTR+K2)=BUFR$(PTR2,PT 

(PTR2) ) +ASC (BUFR$ (PTR2 
(BUFR$(PTR2+2)) :POINT 
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Create-a-base continued 



FIND NEXT VALID TABLE ENTRY 



ttl,52,C2:ICC0M=K7:ICBfiL=TMP2:G05UB 115 
FY 166 IF BUFR$CPTR-K1 J PTR-K1J= ,, :|" THEN 1 

85 
XU 165 POINT »Kl,52,C2:ICC0M=Kll:ICBflL=TE 

MP: GOSUB 115:BUFR$tPTR-Kl,PTR-Kl)=":i": 

EOF=EOF~i 
PW 170 IzUSRCSEARCH, ADRCBUFRS) ,ADRtBUFR$C 

PTR2)) , LENGTH) : PTR=I* CLENGTH+K3) -K2 : TE 

MP$=TMP2$ : PTR2=FX+K1+ CI-K1)*K3 
«J 175 GOTO 145 
U« 180 REM _ 
MR 185 OK=K0:IF BUFRS CPTR-K1, PTR-K1) <> n ;|" 
THEN BUFR$CPTR-Kl,PTR-Kl)=":r':EOF=EOF 

-Kl 
SR 190 FOR I=K TO CTR: J = I*CLENGTH + K3) -K2 : 

IF BUFR$CJ-K1, J-Kl)<>":r THEN PTR = J : PT 

R2=FX+Kl+tI-Kl)*K3:K=I:I=CTR+Kl:0K=Kl 
XM 195 NEXT I : IF OK THEN 140 
VL 200 CLOSE 8K1 
GL 205 FX=41:G0SUB 440JTRAP 205:RUN "Dl : C 

REATEAB.ASE" 

NT 210 END 

KH 215 REM :HK']:HJHI'] 

NE 220 FX = Kl:GOSUB 44 : 10 = 82 : GOSUB 425:IF 
5CHEMA$(52,64)<>"aain3BaiH3" THEN 

? CHR$C253) :GOTO 215 
NV 225 J=vALCSCHEMA$C107,108)) :? ttK6;"*S0 

rt on which field?" 
DZ 230 FOR I = KO TO J-Kl : ? ttK6;I;" "jSCHEM 

A$C145+I*8, 152+1*8) :NEXT I 
EU 235 TRfiP 235:? "What is your choice";: 

INPUT KlTRAP 4OOO0:IF K>J~K1 OR K<0 TH 

EN ? CHR$f253) :GOTO 235 
KH 240 TOO=KO:FOR I = KO TO K : TEMP=109+I*K2 

! LENGTHS ALtSCHEMA$CTEMP,TEMP + KD) :T00 

=TOO+LENGTH:NEXT I 
JA 245 FR0M=T00-LENGTH+K1:REC5IZE=UALC5CH 

EMA$C141,143)) 
CI 250 DIM TEMP$CRECSIZE),TMP2$(RECSIZE) : 

ICBLH=INTCRECSIZE/K256) : ICBLL=RECSIZE- 

ICBLH*K256 
KE 255 TEMP$="¥":TEMP$CRECSIZE)="¥":TEMP$ 

IK2)=TEMP$:TMP2$=TEMP$:TEMP=ADR (TEMPS) 

:TMP2=ADRCTMP2$) 
YN 260 I=INTtCFREtK0)-512)/REC5IZE) iBUFSI 

ZE=I*RECSIZE:DIM BUFR$ CBUFSIZE) :BUFR$= 

"":K-K0: EQF=K0 
YN 265 REM HJEEHEl 
MB 270 CL05E ttKHOPEN «K1, K12, KO, "Dl : DATA 

BASE":? «K6; , ^condensing database": CTR 

= K0 
SB 275 ICC0M=K7:ICBAL=TEMP:G05UB 115 : IF P 

EEKC851)=136 THEN CLOSE OKI : E0F=K1 : GOT 

308 
RZ 280 IF TEMPS tKl,Kl)="-|" THEN 275 
XS 285 BUFRS(LENCBUFRS)+K1)=TEMP$:CTR=CTR 

+Kl:P05ITI0N K0,K3:? »K6;"READING RECO 

RD tt";CTR 
DD 290 IF LENCBLJFR$)=BUF5IZE THEN K = K + 1 : G 

OSUB 300 

SF 295 GOTO 275 . 

YL 300 REM i;i:>*iJMJi|>« fl)*jt» 

PC 305 ? ttK6:? OK6j"So[JtBnP] rEcErEs . . . " : X 

=USRCADR£SORT$) ,ADRCBUFR$) , LEN CBUFRS)/ 

REC5IZE,REC5IZE, LENGTH, FROM) 
ZC 310 FX=2i:IF LENCBUFR$)=KO THEN GOSUB 

450IGOTO 350 
«L 315 IF FORMATTED THEN GOSUB 445:G0T0 3 

35 
NO 320 ? «K6;"iS> >>>> warning! <<<<<L 

ggC33I£EEEE !>>>>> <<<< 

HO 325 GOSUB 450:? »K6; "FORMATTING ...": CL 
05E «K2:XI0 254,»K2,K0,K0,"D1:*.*":LET 
F0RMATTED=1:I0=87:G0SUB 425 
RX 330 CLOSE 8K2:0PEN ttK2, 8, KO , "Dl : OUTPUT 

II 

OZ 335 ? «K6j"Nwriting new database":IF 
NOT EOF THEN ? «K6j"BL0CK tt";K 



DD 340 ICBAL=ADRCBUFR$) : ICBAH=INT CICBAL/K 
256) :ICBAL=ICBAL-ICBAH*K256:P0KE 866.K 
ll:POKE 868,ICBAL:P0KE 869,ICBAH 

SK 345 POKE 873 , INT CLEN (BUFR$) /K256) : POKE 
872, LENCBUFR$) -PEEK C873)*K256:X=USRCC 
10,32) :IF PEEKC867)>K1 THEN STOP 

MU 350 BUFR$="":IF NOT EOF THEN FX=K1:G0 
TO 445 

MU 355 CLOSE ttK2:XI0 32,«K2, KO, K0,"D1 : OUT 
PUT, DATABASE" 

OU 360 IF NOT K THEN 20 

gn 365 rem EaEEEHSHE 

WQ 370 FX=CTR*CLENGTH+K3) ! J=CTR*K3 : IF BUF 

SIZE>=FX+J THEN 385 
HC 375 LENGTH=LENGTH-Kl:TO0=TO0-Kl:IF NO 

T LENGTH THEN STOP 
PR 380 GOTO 370 
LM 385 PTR=K1:PTR2=FX+K1:BUFR$="¥":BUFR$C 

FX+J)="¥":BUFR$CK2)=BUFR$:CL0SE ttKliOP 

EN ttK^K^KO/'DlSDATABASE" 
AN 390 ? 8K6j"*reading pointers..." 
ZG 395 FOR I=K1 TO CTRiPOSITION K0,K3:? 8 

K6j"REC0RDS TO GO ...■■; CTR-I;" " 
PN 4O0 NOTE «K1,5,C:X=INTC5/K256) :P$=CHR$ 

(S-X*K256) :PSCK2)=CHR$ tX) : P$ CK3) =CHR$ C 

C) :ICC0M=K7:ICBAL=TEMP!G05UB 115 
BT 405 BUFR$fPTR,PTR+LENGTH-Kl)=TEMP$CFRO 

M,TOO) :BUFR$CPTR+LENGTH,PTR+LENGTH+K2) 

=P$:BUFR$CPTR2,PTR2+K2)=P$ 
CO 410 PTR=PTR+LENGTH+K3:PTR2=PTR2+K3:NEX 

T I:? 8K6:? ttK6;"So[JtQn[i] pEiHtErS..." 
PA 415 X=USRCADRCSORT$) , ADRCBUFR$) ,FX/ILE 

NGTH+K3) ,LENGTH+K3, LENGTH, Kl) 
MU 420 GOTO 130 
XX 425 REM l:U;liH!l:>tl»tilHIf;T-i 
SM 430 FOR I=KO TO K2 : X=USR CADR C5ECT0RI0$ 

) ,I+K1,I0,ADR£SCHEMA$CI*128+K1))) :NEXT 
I 
ZV 435 RETURN 
RR 440 REM H.'H *!■.»■•» 
PV 445 GRAPHICS KiiPOKE 710, KO 
PS 450 POSITION 7,5:? ttK6; "insert" : ? »K6: 

? 8K6jTABLE$CFX,FX+19) :? ttK6;" 

disk":? 8K6:? 8K6 
PU 455 ? 8K6;"into d isk d rive 81":? «K6:? 
8K6;"and press [SHE] to":? 8K6;"con 

tinue. . ." 
FW 460 IF PEEKC53279)OK6 THEN 460 
XL 465 ? 8K6;"*"; 
ZO 470 RETU RN 
VG 475 REM ETTT1 
CH 480 K0=0:K1=1:K2=2:K3=3:K6=6:K7=7:K11= 

li:K12=I2:K16=16:K256=256 
SV 485 DIM CI0$CK7) ,P$fK3) , SECTORIO$ C31) , 

SCHEMA$C384) ,S0RT$C328) ,TABLE$C60) ,SEA 

RCH$t77) 
OX 490 SCHEMA$ = "¥":SCHEMA$C384)= ,, r , :5CHEM 

A$CK2)=5CHEMA$ 
UQ 495 CI0$="hhh£LuE" 
WM 530 TABLE$="| 



output 



database 

createHaObase Master 



HZ 540 CIO=ADRCCIO$) : SEARCH^ADR CSEARCH$) 
ZY 545 RETURN 
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32K Cassette or Disk 




GAME 



igfi 



^ d ° 



by David Plotkin 



Squeeze is a fast-action game written in Action! Your 
objective is to control the gun in the center of the screen 
and keep the advancing rows of multicolored bricks from 
meeting in the middle. 

The bricks grow faster and the action speeds up in the 
upper levels. You can choose your own level of difficulty 
and which score will end the game (your goal). 

The gun moves up and down under joystick control. 
Pushing the stick left and right aims the gun in the ap- 
propriate direction. And, of course, pressing the fire but- 
ton unleashes a stream of bullets to obliterate the bricks. 

If two lines of bricks in the same row manage to meet 
in the center of the screen, the game is over. So keep the 
lines of bricks from reaching the center — especially tough 
because the line from the opposite side will grow faster 
to try and meet its partner! 

Each PROCedure is commented to tell what it does. Each 
level is 1000 points. 

Good luck! B 

David Plotkin has his Masters in Chemical Engineering 
and works as a Design Engineer for Chevron U.S.A. He 
owns a 130XE and a 520ST, and is currently a heavy Pas- 
cal user on the ST. His interests (on computers) He in 
programming, games and tutorials. 



Listing 1. 
Action! listing. 

MODULE; SQUEEZE by David Plotkin 

} CHECKSUM DATA 

; [9D B? 4C F7 52 58 31 F9 
; 49 38 55 8D C3 54 96 2B 
; 04 40 20 7F IB 2A 55 57 
i 0A 61 51 8F 9F 58 F4 4B 
; B6 B4 B5 E9 1 

BYTE ChrBase=756,Max,Bkgrnd=710, 

Fate=53770, Leveled! ,Cursln=752, 
Gunx=[l9l ,Guny=[121,Ps=[ll , 
Loud^tOl ,Dly=C31 ,Hard=Cll 

CARD Scrn=88,RaMSet,HiMeH=$2E5, 
Score^IOl , Target 

CARD ARRAY Linept C24) , LI C30) 



BYTE ARRAY Charset, Shotstatus C30: 


, 


ShOtX(30) , ShOty C30J 


,EndLC24] 


i i 


EndRC243 


' i 












ShapeTable t0)= 










C104 


208 


208 


213 


213 


208 


208 


104 


10 


8 


7 


87 


87 


7 


7 


10 


255 


255 


255 


255 


255 


255 


255 


255 


170 


170 


170 


170 


170 


170 


170 


170 


85 


85 


85 


85 


85 


85 


85 


85 


87 


87 


87 


87 


87 


87 


87 


87 


175 


175 


175 


175 


175 


175 


175 


175 


170 


255 


170 


255 


170 


255 


170 


255 


85 


255 


85 


255 


85 


255 


85 


255 


85 


179 


85 


170 


85 


170 


85 


1701 
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i&P SCjlieeZe continued 



PROC DownloadC) 

;Step back HiMew and Move the 

jcharacter set into RAM 

RaH5et=CHiMeM-$400)fi$FC80;lK boundary 

ChrBase^RaMSet R5H 8 

HiMeM^RaMSet 

MOVEBLOCKlRaMSet, 57344,1024) 

Charset=Ra«5et 

RETURN 

PROC GrOInitt) 

;5et up the address of each screen 

;line and initialize 

CORD xx 

GRAPHICStO) Cursln^l PRINTf" "3 

FOR xx = TO 23 

DO 

Linept fxx)=Scrn+ t40*xx) 

EndLtXX)=0 EndRtXX)=39 
OD 

FOR xx = TO 29 
DO 5hotstatusfxx)=0 Shotx£xx)=Q 

5hotytxx)=0 LI (xx)=xx*10O0 
OD Bkgrnd=0 
RETURN 

PROC PlOtOtBYTE X,y,ch) 
;Plot a chap at location x,y 
BYTE ARRAY line 
line=:Linept Cy) line(x)=ch 
RETURN 

PROC Modify!) 

;Modify the RAM character set 

CARD XX 

FOR XX=0 TO 79 

DO 

Charset txx+8)=5hapeTablefxx) 
OD 
RETURN 

PROC UpdateScoret) 
;Print the score and L evel 
POSITION CI, 23) PRINT f EWiTrei ") 
P0SITI0Nt8,23) PRINTC tScore) 
P0SITI0Ntl6,23) PRIHTC HMQfl ") 



P0SITI0Nt23,23) 
P0SITI0Nt27,23) 
P0SITI0Nt33,23) 
RETURN 



PRINTBtLevel) 
PRINTf 'Targ: ■■) 
PRINTCCTarget) 



PROC Noiset) 

;the explosions when a block is hit 

IF Loud=0 THEN RETURN FI 

Loud— -2 S0UNDfl,90,8,Loud) 

RETURN 

PROC NewLevelC) 

;set up a wore difficult level 

BYTE tiMe=20, lp 

50UND tl,0, 0,0) PUTC125) Level" + 1 

P0SITI0Nt9, 12) 

PRINT ("New H-1'JJH ") POSITION C20, 12) 

PRINTBtLevel) tiwe^O 

DO SOUNDtO, tine, 10, 4) 
UNTIL tiMe>100 

OD 
PUTC125) SOUNDtO, 0,0,8) 
UpdateScoret) 
FOR lp=0 TO 29 
DO 5hOtStatUSClp)=0 OD 
FOR lp=0 to 23 

DO EndLtlp)=0 EndRtlp)=39 OD 
IF Level>8 THEN Dly=l EL5EIF Level>3 

THEN Dly=2 ELSE Dly=3 
FI LOUd=fl 
RETURN 
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PROC Choicet) 

;choose the difficulty level 

BYTE lp=ril ,tiMe=20,trig=644,StiCk=632 

P0SITI0Nt2,13) 

PRlNTC'Select Difficulty with Joystick") 

P05ITI0Nf2,14) 

PRlNTC'Then press HUH") 

P05ITI0NC7 ,16) 

PRINT f"l. H-.t-i 'J - Goal 8080 points") 

POSITION £7,17) 

PRINT£"2. SEEHBE - Goal 12OO0 points") 

POSITION £7^18) 

PRINTf"3. IiUJI - Goal 140O0 points") 

DO PlotOtS, lp+15,0) 

IF stick=14 AND lp>l THEN lp==-l 
EL5EIF stick=13 AND lp<3 THEN 
lp — + 1 

FI PlotOC5,lp+15,84) 

tiMe=0 DO UNTIL tiMe=20 OD 

UNTIL trig=0 
OD Hardzlp 
IF lp=l THEN Target=8000 ELSEIF 

lp=2 THEN Target=12OO0 ELSE 

Target=14O00 
FI 
RETURN 

PROC lntro£) 

;The introduction 

BYTE tiwe=20, lp,xx 

BYTE ARRAY hel 1 t0) = [51 49 53 37 37 

37 37 58 37 1 1 11 

P0SITI0N£7,5) 

PRINT ("|j 

FOR lp = TO* 11 

DO PlOt0tlp+9,8,hellOf lp)) 

SOUND£0,helloClp) L5H 1,10,4) 

tihiezO DO UNTIL ti«e = 9 OD 
OD SOUNDEO, 0,0,0) P05ITI0Nt7,9) 
PRINT£"written in ACTION") 
P0SITI0N£7,10) 
PRINTC'by David PlOtkin") 
Choice £) 
FOR lp=8 TO 11 
DO XX=lp+9 

DO PlotOCxx,8,0) xx~ -1 
IF XX<1 THEN EXIT FI 
PlotO(xx,8,helloClp)) 
SOUNDtO, xx LSH 3,18,4) 
tiMe=0 DO UNTIL tiMe = l OD 

OD 
OD S0UND£8, 0,0,0) PUTI125) 
RETURN 

PROC EndGaneC) 

;the gaMe over routines 

BYTE tiMe=20, lp,trig=644,xx,yy 

BYTE ARRAY gaMeover tO) = [39 97 109 101 

O 47 118 101 1141 

PUT£125) 50UND£i, 0,0,0) 

FOR lp=0 TO 8 

DO PlotOClp+7, 12,gaMeoverClp)) OD 

IF Score>=Target THEN POSI TION £5, 7) 

PRINTCYou Met your E TTTl ! ! ■") 
FI Updatescoret) 
tiMe=0 

DO SOUND CO, tine, 10, 8)UNTIL tiMe = 60 OD 
SOUNDtO, 0,0,0) Choicet) Level=o 
FOR lp=0 TO 8 
DO xx=lp+7 yy=12 

DO PlOtO txx, yy,0) XX" + 1 yyzz-1 

IF txx>39 or yy<i) then exit FI 

Plototxx,yy,gaMeovertlp)) 

SOUNDtO, XX LSH 3,10,4) 

tiMe=0 DO UNTIL tiMe=l OD 
OD 
OD 5core=0 NewLevelC) 
RETURN 
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PROC Movegunt) 

;Read joystick and Move the gun 

BYTE StiCk=632 

PlotO tGunx,Guny,0) jerase the gun 

IF Stick-14 THEN;thiS is a Stick up 

Guny— -1 ELSEIF stick=13; stick down 

THEN Guny~ + 1 
FI 
IF Stick=7 THEN Psrl EL5EIF Stick=ll 

THEN Ps=2;stick righttl) OP leftt2) 
FI 
IF Guny<l THEN Guny=l EL5EIF;out of 

Guny>21 THEN Guny=21; Bounds 
FI 

PlotOtGunx, Guny,Ps) ;redraw the gun 
RETURN 

PROC TestCOlCBYTE Wh) 

;see if bullet wh hit anything 

BYTE qq 

qq=ShOty tWh) 

IF ShOtStatUSfWh)=i THEN 

IF EndRlqq) <=ShOtXtWh) THEN 
PlOtOtShOtXfWh) ,5hOty tWh) ,0) 
Shotstatustwh)=0 
EndRtqq)— +1 L0Ud=6 5C0re==+2 
FI ELSE 

IF EndLCqq)>=5hOtXtWh) THEN 
PlotO fShotxtwh) , Shoty tWh) ,0) 
Shotstatustwh)=0 
EndLlqq)— -1 LOUd=6 5core==+2 
FI 
FI 

IF 5core>Ll tLevel) THEN NewLevelO FI 
RETURN 

PROC Shoott) 

;check the trigger and fire if pushed 

BYTE trig=644,lp 

IF trig=l THEN RETURN FI 

FOR lp=Q to 29; find an ewpty shot 

DO 

IF Shotstatustlp)=0 THEN;got one 
IF Ps=l THENjgun facing right 
5hotstatusflp)=l 
5hOtXtlp)=Gunx+l EL5E 
5hotstatusClp)=2 
Shotx tlp)=Gunx-l 
FI Shoty Up) =Guny 
PlotO tShOtX tip) , Shoty tip) ,84) 
TestCOlClp) EXIT 
FI 
OD 
RETURN 

PROC MoveShOtSt) 
;Moue the fired bullets 
BYTE lp 

FOR lprO TO 29; for each shot 
DO 
IF ShotstatusClp)=l THENjgoing right 

PlotO CShotx(lp) , Shoty tip) ,0) 

Shotxtlp)==+l 



IF Sh0txtlp)=39 THEN 
Shotstatus tlp)=0 ELSE 
PlotO tShOtx tip) , Shoty tip) ,84) 
Testcol tip) 
FI 
FI 

IF Shotstatustlp)=2 THEN;going left 
Plot0tShotxtlp),Shotytlp),0) 
5hotxtlp)"-l 
IF 5hotxtlp)=0 THEN 

Shotstatustlp)=8 ELSE 
PlotO tShotX tip) , Shoty tip) ,84) 
Testcol tip) 
FI 
FI 
OD 
RETURN 

PROC GrowWallst) 

;grow squares frow both sides 

BYTE lVl,lp,dUM,y 

BYTE ARRAY lnore f 24) , r«ore t24) 

FOR lp=0 TO 23 

DO lMoretlp)=0 rMoretlp)=0 OD 

IF Level>10 THEN 

lvl=10 ELSE lvl=Level 
FI 

FOR lp=l to lvl+Hard 
DO 
IF Fate>210-lvl LSH 2 THENjgrow 

dUM=RANDt8)+3 y=RANDt21)+l 

IF Fate>128 AND EndRty)>20 AND 
rMorety)=0 THEN rMorety)=l 
EndRty)==-l PlotGtEndRty) ,y,duH) 
ELSEIF EndLty)<18 AND 
lMorety)=0 THEN l«orety)=l 
EndLty)— +1 PlotOtEndLCy) ,y,duM) 

FI 
FI 
OD 

FOR lp=l to 22 
DO IF EndLtlp)=18 AND EndRtlp)=20 

THEN EndGaMet) EKIT FI 
OD 

IF 5core>=Target THEN EndGaMet) FI 
RETURN 

PROC Maint) 

BYTE tihie=20 

GrOInitt) Introt) 

Download!) 

Modify!) UpdateScoref) 

DO Movegunt) GrowWallst) 

Shoott) MoveShotst) Noiset) 

tiMe=0 P0SlTI0Nf8,23) PRINTC f Score) 

DO UNTIL tiMe=Dly OD OD 

RETURN 
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by David Plotkin 



Action!, the high-speed, high-level language from OSS, 
is a really excellent tool for game writing. In fact, once 
you've learned its structured approach (and some of its 
idiosyncracies) and tasted its dazzling speed, you may 
never go back to the (normally) slow crawl of BASIC. 

Surface Run, included at the end of this article, is a sam- 
ple of what Action! can do. It's also the first game I've ever 
written where too much speed was a significant problem. 
Of course, it's a lot easier to get rid of excess speed than 
to add it. 

I've found that there are two ways to program in Action! . 
The first way can be thought of as "high level," using the 
many functions and keywords that Action! provides. While 
this is straightfoward , and even allows for pseudo-trans- 
lation of BASIC programs (many of the commands or key- 
words are the same in both Atari BASIC and Action!), it 
suffers from some loss in speed. An example is found in 
high-resolution graphics. 

PLOT and DRAWTO are available in Action!, but use 
the Atari's CIO routines, the same ones BASIC uses. This 
is not to say that even "high level" Action! isn't fast . . . 
compared to BASIC, it's fast indeed. Still, there are ways 
to considerably increase the speed of slower Action! func- 
tions, to a point approaching true machine speed. This 
is what I refer to as "low level" Action! . What you do is 
write your own special routines to do the job. This gener- 



ally involves direct byte manipulation to the screen, use 
of shifts instead of multiply/divide, and construction of 
tables in the program initialization phase, so that results 
of complex calculations can simply be looked up. 

An example is seen in the graphics routines in Surface 
Run. To fill a graphics 7 screen with color using PLOT 
takes about 27 seconds. Use of my procedure PLOT7, 
which does some complex direct byte manipulation (bit 
twiddling?), takes about 4.25 seconds. 

The reason that even this procedure still takes so long 
is that there's a fair amount of math going on before each 
2-bit pair is modified. If you can define your picture ahead 
of time and just place the bytes on-screen using a proce- 
dure like FASTDRAW, the process takes about two jiffies 
(or V30 second). In the latter part of this article, we'll talk 
about some of the more interesting procedures included 
in Surface Run, and what purposes they serve. 

Surface Running. 

To play Surface Run, punch in the listing that follows. 
Before you run it, save it to disk or cassette (SHIFT CTRL- 
W, followed by the filename or C: for cassette), then enter 
the monitor (SHIFT CTRL-M) and compile (C). When the 
computer beeps at you, plug your joystick into port 1 and 
run the program by pressing R. 

You're in control of a space fighter, zooming low on pa- 
trol over the scrolling surface of Stripes, your home plan- 
et. Pulling back on your joystick causes you to climb; 
pushing foward makes you dive toward the planet's sur- 
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face, although your flight computer won't let you crash fat 
least, not into the surface). 

Pressing the joystick left and right will cause the fight- 
er to respond in the appropriate direction. It will also re- 
spond to diagonals, for added maneuvering. 

And you're not defenseless. Pressing the fire button un- 
leashes missiles which emerge from your wingtips and 
converge in the distance. You may have up to four mis- 
siles on the screen at any one time. 

The enemy is a massive "mother ship," which emerges 
from hyperspace with a roar and moves rather unpredict- 
ably about the screen, launching tracking fireballs at you. 
You must neutralize all these fireballs with your missiles, 
while destroying the mother ship — by first shooting out 
the left engine, then the right, and, finally, the main cen- 
ter one. 

Strategy is something of a problem: to destroy the moth- 
er ship, you must move in close, but the fireballs are more 
dangerous if you do. You start out with four ships. The 
number of ships left and your score are kept in the win- 
dow at the bottom of the screen. My high score is about 
7000, so good luck and good hunting! 

The real Action! 

Some of the PROCedures used in Surface Run are quite 
interesting, and they enhance the speed of the program 
considerably. Let's touch on some of these programming 
techniques. 

(1) The use of the DEFINE statement to equate assem- 
bly code statements (such as RTI or PHA) to the actual hex 
codes that represent these instructions make the listing 
more readable and understandable. 

(2) SAVETEMPS and GETTEMPS are found whenever 
an interrupt (such as VBI or System Timer) is used, to save 
and retrieve the temporary math variables needed by the 
main program. Thus, the interrupt doesn't change these 
variables, which could cause some unpredictable results 
in the main program. The line of hex codes is two short 
machine language routines to do the job. 

(3) PROC DLINT is a display list interrupt (DLI) rou- 
tine written in Action! Note the use of the assembly code 
blocks DEFINEd earlier to save the accumulator, and the 
X- and Y-registers during the interrupt. We did not use 
SAVETEMPS and GETTEMPS, because there isn't enough 
time, but it seems to work okay. The DLI changes the back- 
ground color by displaying a hue taken from the byte ar- 
ray CLRS. 

(4) PROC INIT7 does the program initialization. The 
real purpose is do some drawn out math to find screen 
addresses, then store the results in an array — because it's 
much faster to look those results up than to calculate them, 
which would slow down program execution. Thus, the low 
byte of the address of each screen line is stored in array 
YLOCL, and the high byte in array YLOCH. The array 
RSH2 holds which of the 40 bytes on the line is actually 
referred to by the X-coordinate range from to 159. There's 
a little trickiness going on here, to break up the 2-byte ad- 
dress held in SCREEN into the two 1-byte numbers need- 
ed by YLOCL and YLOCH. By making CARD SCREEN 
have the same address as BYTE LOWl, each time SCREEN 



is changed, LOWl and HIGHl are also automatically 
changed. This is sneaky, but very fast. 

(5) PROC DLSETUP modifies the display list, to turn 
on the high byte of each instruction on each line where 
a DLI is required. The instruction VDSLST=DL7NT in- 
stalls the DLI. 

(6) PROC ROTATE is a routine executed each time the 
system timer interrupt is called (more on this later). It ro- 
tates the elements of the array CLRS, so that the colors dis- 
played by the DLI appear to move down the screen. 

(7) INT FUNCs HSTICK and VSTICK are used to read 
the joystick. They're taken directly from the Programmer's 
Aid Disk (PAD). 

(8) PROC DRAW7 allows you to plot a point on the 
screen in any of the graphics 7 colors. This is much quicker 
than using the PLOT function. You pass the x- and y- 
coordinates, and the color number to the procedure. 
There's some major speed enhancement here. First, note 
the BYTE variable declarations. When byte variables are 
passed to a procedure, they are passed on page in loca- 
tions $A0 to $AF So, declaring byte variable XI to reside 
at location $Al equates it to the passed variable X. But. 
because it's a page quantity, operations using XI will 
be faster. Note also that the variables LOW and HIGH are 
equated to the proper element of YLOCL and YLOCH. 
This automatically moves byte array LINE to the proper 
line on the screen, because the variables LOW and HIGH 
reside in the memory location that defines where byte ar- 
ray LINE will be (see the MODULE statement at the be- 
ginning of the program). The last line of this procedure 
looks pretty horrendous, but what it does is directly 
manipulate the proper screen byte by punching a 2-bit hole 
in the byte with a bit mask (array BM), then filling in the 
hole with the proper color via a color mask (array CM). 

(9) PROC FASTDRAW is the fastest of the drawing rou- 
tines. It takes data contained in a byte array and places 
it directly on-screen, byte by byte. The variables WIDTH 
and HEIGHT determine the limits for picture drawing, and 
XX and YY are the position to draw the picture on the 
screen. The drawback to using this procedure is that you 
have to figure out how to draw a picture and convert it 
to a string of bytes. FASTDRAW is set up to use a picture 
drawn with DrawPic, from Artworx. When you construct 
a picture with DrawPic, you can save the image to disk 
as BASIC program lines containing a string of bytes. Draw- 
Pic also automatically saves the width and height. It is 
then simple to enter these program lines into an Action! 
program and modify them to the proper format. The byte 
arrays SHIP, NOLEFT and NOENG declared at the begin- 
ning of the program are constructed in just this manner. 

The rest of the procedures are fairly straightforward. 
PMGRAPHICS, PMCLEAR, and PMADR are from the 
PAD, although PMGRAPHICS is a cut-down version of the 
general routine provided on PAD. 

ERASESHIP removes the mother ship from the screen 
and increments the difficulty each time you triumph over 
one. WINDOW draws the text window at the bottom of 
the screen. UPDATE prints the new score, while UPDATE- 
SHIP keeps track of the number of ships you have left. 
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TESTHIT checks to see if your missiles have hit the 
proper spot on the mother ship. SHIPFLY moves your lit- 
tle space fighter in response to the joystick. MISSILE FIRE 
fires off a missile (don't you just love descriptive names?) 
when you press the fire button, provided there aren't four 
missiles on-screen already. MISSILEMOVE converges the 
missiles in the distance. The distance the missile has trav- 
eled from its original Y-coordinate is used to determine 
the X-coordinate. 

SHIPDRAW places the mother ship on the screen, while 
SHIPMOVE bounces it around. DARKEN checks to see if 
(he background is lit up from an explosion. It progressively 
darkens the area, so the explosions can continue while oth- 
er things happen. 

SHOOTBACK causes the mothership to launch any un- 
used fireballs at your fighter. ALIGN determines the direc- 
tion the fireballs have to move to reach your ship and how 
far they will move each time (based on the difficulty lev- 
el). BALLMOVE moves fireballs in the appropriate direc- 
tion. HITBALL figures out which fireball was hit and 
removes it from the screen, making an explosion and light- 
ing up the background. 

ENDGAME displays the end-of-game message and 
restarts the game when you hit the fire button. BLOWNA- 
WAY checks to see if a fireball has hit your fighter and 
blows it apart if one has. 

Finally, MAIN does the initial setup and calls each of 
the other procedures as needed. One popular misconcep- 
tion is that the "driving" PROC must be called MAIN. This 
is not true; the procedure may be called anything. What's 
different about MAIN is that it is the PROCedure which 
calls all the others. 

Action! is a very nice midpoint between BASIC and 
assembly — and, as you can probably tell, I'm a big fan. 
Programming in Action! is more fun than in BASIC, with 
far better results. And it's much easier than learning as- 
sembly language. H 



GETTEMP5 
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Listing 1. 








Action! ] 


listing. 


I 


CHECKSUM DATA 




; [E9 


50 29 


34 E5 8E 


ED 


98 


; CO 


79 81 


OC 97 C2 


39 


01 


j 40 


OB 36 


1C 52 FF 


63 


91 


; ii 


AE 88 


3A 75 2B 


EO 


7E> 


; 4? 


BD 52 


23 D2 71 


86 


9A 


; D6 


D5 ID 


El 65 60 


86 


47 


; D9 


64 A9 


70 Al 2F 


BC 


97 


; F6 


90 64 


7D 8B 76 


C9 


EO 


; 54 


32 97 


68 29 1A 


37 


FB 


J 5A 


59 ] 








MODULE; SURFACE. RUN 






DEFINE RTI: 


:"$40", 








PHA: 


:"$48", 








PLA: 


:"$68", 








TXA: 


: M $8A M , 








TAX: 


:"$AA", 








TYA: 


:"$98", 








TAY: 


i^AS", 








5AUETEMPS="[$A2 


7 $B5 $A8 $48 






$CA 


$10 $FA] M , 



CARD OLD,SDL5T=560,UDSL5T=512, 
SCRL0C=88,CDTMg2=$21A, 
CDTMA2=$228, HIMEM=$2E5, 
PM_BASEADR,ADRES, ADRE5B, 
5CORE=[0] 

INT 5X=[U,5Y=[i] 

INT ARRAY BXDR=[0 0] , 
BYDR=[0 0] 



BYTE NMIEN=$D40E,C0LB 
UCOUNT=$D40B,H5Y 
COUNT=[0] . 
PMHITCLR=$DOiE,D 
GRACTL=$D01D,PMB 
PRI0RITY=$26F,X0 
SHIPX,SHIPY,SHIP 
PCLR0=704,PCLRM 
C0LR1=709,C0LR2= 
FATE=53770,NUMSH 
TXTR0W=656,TXTC0 
LUL1=[10] ,SNDi=$ 



K=$D01A,T=$DA, 
NC=$D40A, 

MACTL=$22F, 

A5E=$D407, 

,Y0,COLWND=$DO18, 

5TAT=[0], 

711,COLRO=708, 

710,C0LR4=712, 

IP=[4] ,CUR5H=752, 

L=657,LgL=[10] , 

D20F,SND2=$D208 



BYTE ARRAY 
YLOCH 
PMHPO 
PMUPO 
PM_WI 
PM_MI 
BALL1 

PCOLR t 
BALL2 

BSTAT= 

BH=[Q 

BLANK= 

BYTE ARRAY 
64 66 
74 64 



DLIST,YL0CLC 
180) ,R5H2C160 
SC8)=$D00O, 

SC8) = [0 

DTHC5)=$D008, 
5MA5K C4) = [$FC 
[0000 165 

90 165 0O 

4)=704, 

CO 90 1 

219 165 90 

[0000], 

03 ,BY=[0 

[000000 

01 
CLR5C0) = [64 
68 70 72 74 
66 68 70 72 



80) , 

0], 

PLPTR. 

$F3 $CF $3F] , 
90 36 90 90 36 

0], 

65 219 165 165 

0], 

0], 



66 68 70 72 74 
64 66 68 70 72 
74 64 66 68] 



BYTE ARRAY BMC0)=[$C0 $30 $C $3], 
CMCO)=[$0 $55 $AA $FF] , 
5MPSHAPEC0) = [0 9 66 36 24 165 
231 165 24 36 66 

0] , 
)=[0 0], 

0], 
0], 

[0000], 

[0000], 
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IUIUI Ul Ml M 1 M I ^ 1 y I ^1 y] 

BYTE ARRAY LINE 

BYTE L0W=LINE,HIGH=LINE+1 

PROC DLINTC) 

BYTE DUM 

[PHA TKA PHA TYA PHA] 

IF VC0UNT>94 THEN 

W5YNC= J. 

C0LBK=8 C8LWND=8 

ELSE DUM=CLRSCCOUNT) 

WSYNC=1 

COLBK=DUM 
FI 

C0UNT=C0UNT+1 
IF C0UNT=27 
THEN C0UNT=8 
FI 
[PLA TAY PLA TAX PLA RTI] 



PROC IN 
BYTE LO 
CARD 5C 
GRAPHIC 
C0LR0=4 
C0LR2=5 
SCREEN= 
1 = 

WHILE I 
YLOCLCI 
YLOCHCI 
SCREEN = 
1 = 1 + 1 
OD 
1 = 

WHILE I 
RSH2CI) 
1 = 1+1 
OD 
RETURN 

PROC DL 
BYTE I 
INIT7CJ 
NMIEN=$ 
DLI5T=5 
UDSLST= 
FOR 1=3 
DO DLI5 
FOR 1=4 
DO DLIS 
FOR 1=5 
DO DLI5 
FOR 1=7 
DO DLIS 
NMIEN=$ 
RETURN 



IT7C) 

W1,HIGH1,I 

REEN=L0M1 

5C7) 

4 C0LR1=102 

2 C0LR4=0 

SCRLOC 

<80 DO 
)=L0W1 
)=HIGH1 
SCREEN+40 



<168 DO 
=1 RSH 2 



5ETUPC) 



40 

DLST 
DLINT 
TO 40 
TCI)=141 OD 
2 TO 54 STEP 
TCI)=141 OD 
7 TO 72 STEP 
T(I)=141 OD 
6 TO 84 STEP 
Ttl)=141 OD 
CO 



PROC ROTATEC) 

BYTE HOLD,CTR,CNTR 

[PHA TKA PHA TYA PHA] 

SAVETEMP5 

H0LD=CLRSC26) 

FOR CTR=0 TO 25 

DO CNTR=25-CTR 

CLRSCCNTR+1)=CLRSCCNTR) OD 

CLRSC83=H0LD 

CDTMV2=2 

GETTEMP5 

[PLA TAY PLA TAX PLA] 

RETURN 

INT FUNC HSTICKCBYTE PORT) 

BYTE ARRAY PORTS C4) =$278 

INT ARRAY UALUEC4)=[Q 1 $FFFF 0] 

RETURN tUALUECCP0RT5CP0RT)&$C) RSH 2)) 

INT FUNC U5TICKCBYTE PORT) 



BYTE ARRAY PORTS C4) =$278 

INT ARRAY VALUEC4)=[B 1 $FFFF 8] 

RETURN CVALUECPORT5CP0RT)&3)) 

PROC DRAW7CBYTE X,Y,CLR) 

BYTE X1=$A8, Y1=$A1,CLR1=$A2 

L0W=YL0CL£Y1) 

HIGH=YLOCHtYl) 

T=R5H2£X1) 

LINE CT) = C C CBMCX1&3) ! $FF) SLINE IT) ) Y. 

(BMCX1&3) &CM CCLR1) ) ) 
RETURN 

PROC FASTDRAWCBYTE ARRAY PICTURE 
BYTE WIDTH, HEIGHT, XX, YY) 
BYTE LCTR1,LCTR2 
CARD LCTR3 

FOR LCTR1=0 TO HEIGHT-1 
DO L0W=YL0CLCYY+LCTR1) HIGH=YLOCH CYY+ 
LCTR1) 

LCTR2=XX+WIDTH 

LCTR3= tLCTRl + l)*WIDTH-l 

DO 

LINECLCTR2)=PICTURE(LCTR3) 

LCTR3==-1 

LCTR2==-1 

UNTIL LCTR2=XX 

OD 
OD RETURN 

PROC PMGRAPHICSt) 

ZER0tPMHP05,8) ZERO CPMVPOS , 8) 

ZER0tPM_WIDTH,5) 

DMACTL=$3E 

PM_BASEADR= fHIMEM-$800) &$F800 

PMBASE=PM_BASEADR RSH 8 

HIMEM=PM_BA5EADR+768 

PRI0RITY==&$C8KI7 GRACTL=3 

RETURN 

CARD FUNC PMADRCBYTE N) 

IF N>=4 THEN N = 8 ELSE N==+l FI 

RETURN CPM_BASEADR+768+lN*$I88)) 

PROC PMCLEARCBYTE N) 

CARD CTR 

BYTE ARRAY PLAYADR 

PLAYADR=PMADRCN) 

IF N<4 THEN ZERO CPLAYADR, $188) 

ELSE N==-4 
FOR CTR=8 TO $188-1 

DO PLAYADR tCTR) ==&PM_MISMA5K IN) OD 
FI 
RETURN 



PRO 
BYT 
LL = 
FOR 

DO 
F 
D 

OD 
LUL 
LUL 
RET 



C ERASESHIPO 
E LOOPX, LOOPY, LL 
SHIPX LSH 2 
LOOPY=SHIPY TO 5HIPY+10 

OR LOOPX=LL TO LL+39 

DRAW7(L00PX,L00PY,8) OD 

==+2 IF LVL>28 THEN LVL=28 FI 
l==+5 IF LUL1>288 THEN LVL1=288 FI 
URN 



PROC WINDOWC) 

BYTE LOOPS 

TXTROW=0 TXTCOL=0 CURSH=1 

PRINT C" | 

PRINT t" 1 ") 

FOR L00P5=1 TO 2 DO 
TXTR0W=L00P5 TXTCOL=0 PRINTC M |") 
TXTC0L=38 PRINT("|"3 
OD TXTR0W=3 TXTCOL=0 

PRINT t" 1 

PRINT t" '") 
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TXTR0W=1 TXTC0L=5 PRINT C"SCORE : "3 
TXTC0L=12 PRINTCCSCORE3 
TXTC0Lr20 PRINT C'SHIPS LEFT: ") 
FOR L00P5=i TO 5 DO TXTC0L=31+L00P5 
IF NUM5HIP>=L00P5 THEN PRINT t"*") 

EL5E PRINTC" ") 
FI OD 
RETURN 

PROC UPDATEC3 

BYTE LOOPS 

TXTROW=l TXTC0L=12 PRINTC C5CORE3 

RETURN 

PROC UPDATE5HIPC3 

BYTE LOOPS 

TXTROW=i 

FOR L00P5 = 1 TO 5 DO TXTC0Lr31+L00P5 

IF NUMSHIP>=L00P5 THEN PRINTC"*"3 

EL5E PRINTC" ") 
FI OD 
RETURN 

PROC TESTHITCBYTE MISSUL) 
BYTE MISSLY,MIS5LX,XSHIP 
IF SHIP5TAT=0 THEN RETURN FI 
MISSLY=:CMYCMISSUL3-303 R5H 1 
MI55LX = MX CMIS5ULJ -48 
XSHIP=5HIPX L5H 2 
IF MIS5LY<SHIPY+4 OR 

MIS5LY>5HIPY+7 THEN RETURN FI 
IF SHIPSTAT=1 THEN 
IF MISSLX>XSHIP+9 AND 
MI55LX<X5HIP+I5 
THEN SHIP5TflT=2 C0LR4=14 
SCORE" + 20 
UPDATEC3 
FI 

RETURN 
FI 

IF SHIPSTAT=2 THEN 
IF MISSLX>XSHIP+31 AND 
MISSLX<XSHIP+37 
THEN SHIPSTAT=3 C0LR4=14 
5C0RE==+20 
UPDATE C3 
FI 

RETURN 
FI 

IF MIS5LX>X5HIP+20 AND 
HI55LX<X5HIP+26 THEN 
SHIPSTAT^O SC0RE— + 50 
C0LR4=14 S0UNDC1,C0LR4 LSH 4,8,43 
SOUND (2,0,6,03 ERASESHIPC3 
UPDATEC3 
FI 
RETURN 

PROC SHIPFLYC3 

BYTE 5TCK=632 

SOUND C0,Y0,8,23 

IF STCK=15 THEN RETURN FI 

X0=XO+HSTICKC03 LSH 1 

Y0=YO+USTICK t03 LSH 1 

IF XS>190 THEN X0=190 FI 

IF X8<50 THEN X0=50 FI 

IF Y0>17O THEN YO=170 FI 

IF Y0<50 THEN YO = 50 FI 

ADRES=PMADRC03+Y0 

MOVEBLOCK CADRES, SHIPSHAPE, 173 

PMHPOSC03=X0 

RETURN 

PROC MISSILEFIREC3 
BYTE TRIGGER=644,INDX,MA5K 
IF TRIGGER=i THEN RETU RN F I 
J TRIGGER IS NOT 1, SO gEEJ ! 
FOR INDX^O TO 3 DO 



IF MSTATUSCINDX3=0 THEN 

MSTATUSCINDX3=1 MY CINDX3 =Y0+6 

MYOLD CINDX3 =MY CINDX3 

MXCINDX3=X0 

IF INDX=1 OR INDX=3 THEN 
MXCINDX3=X0+15 FI 

MXOLD CINDX3 = MX CINDX3 

MASK=PM_MI5MASKCINDX3 !$FF 

PLPTR CMY CINDX3 3 == KMASK 

PMHPOSCINDX+43=MXCINDX3 

EXIT 
FI OD RETURN 

PROC MI55ILEM0VEC3 
BYTE INDX, MASK, DELTA 
FOR INDX=0 TO 3 DO 
IF MSTATUSCINDX3=1 THEN 

PLPTR CMY CINDX3 3 ~&PM_MISMASK CINDX3 
MYCINDX3==-2 

MASK=PM_MI5MASKCINDX3 !$FF 
IF MY0LDCINDX3-MYCINDX3>44 THEN 
MST6TUSCINDX3 30 SOUND C2,0,O,O3 
ELSE PLPTR CMY CINDX3 3 "KMA5K; REDRAW 
DELTA=CMY0LDCINDX3-MYCINDX3 3/6 
IF INDX^O OR INDX=2 THEN 
MXCINDX3=MXOLDCINDX3+DELTA 
ELSE MX CINDX3=MXOLDCINDX3 -DELTA 
FI 

PMHPOSCINDX+43rMXCINDX3 
S0UNDC2, DELTA LSH 2,10,43 
TESTHITCINDX3 
FI 
FI OD RETURN 
PROC SHIPDRAWC3 
BYTE TIME=20 

IF SHIPSTATOO OR FATE<250 
THEN RETURN FI 
SHIPSTAT=1 

C0LRO=14 C0LR1=14 C0LR2=14 C0LR4=14 
SHIPX=RANDC243+2 SHIP Y=R AND C303 +2 
FASTDRAWCSHIP,1O,10,SHIPX,SHIPY3 
TIME=0 DO SOUNDC1,1O0,8,12-TIME RSH 13 
IF TIME=4 OR TIMERS OR TIME=12 THEN 

SHIPFLYC3 MISSILEM0UEC3 
FI 

UNTIL TIME=16 OD 
WHILE C0LR4>0 

DO C0LR4==-1 C0LR2=RANDC2503 

COLRO=RANDC2503 C0LR1=RAND C2503 
TIME=0 DO UNTIL TIME=2 OD 
S0UNDC1,C0LR4 LSH 4,8,43 
SHIPFLYC3 MISSILEM0UEC3 
OD 

C0LR0=44 C0LR1=102 C0LR2=52 
SOUNDC1,O,O,03 
RETURN 



PROC 
IF SH 
SHIPX 
IF SH 

ELSE 
IF SH 

ELSE 
IF SH 
FASTD 
ELSEI 
FASTD 
ELSE 
FI 
RETUR 



SHIPM0UEC3 

IP5TAT=0 THEN RETURN FI 

==+SX SHIPY==+SY 

IPX<2 OR SHIPX>28 THEN SX=~SX 

IF FATE> C255-LVL3 THEN SX = -SX FI 

IPY<2 OR SHIPY>55 THEN SY=-5Y 

IF FATE<LUL THEN SY=-SY FI 

IPSTAT=1 THEN 

RAWCSHIP,10,10,SHIPX,5HIPY3 

F SHIPSTAT=2 THEN 

RAWCNOLEFT,10,1O,SHIPX,SHIPY3 

FASTDRAWCNOENG, 19, 10, SHIPX, SHIP Y3 



PROC DARKENC3 

IF C0LR4=0 THEN RETURN FI 

C0LR4 — -1 S0UNDC1,C0LR4 LSH 4,8,43 

IF COLR4=0 THEN SOUND CI, O, 0, 03 FI 

RETURN 
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PROC SHOOTBACKC) 

BVTE LLP 

IF SHIPSTAT=8 OR FATE>LULi 

THEN RETURN FI 
FOR LLP=1 TO 3 DO 
IF BSTATCLLP)=8 THEN 

BSTATCLLP)=1 

BXCLLP)=CSHIPX L5H 25+68 

BYCLLP)=CSHIPY L5H 1) +34 

PC0LRCLLP)=RANDC15) LSH 4;RND COLOR 

PC0LRCLLP)==+10; LIGHTEN COLOR 

ADRESB=PMADRCLLP)+BYCLLP) 

M0UEBL0CKCADRESB,BALL1,16) 

PMHPOSCLLP)=BXCLLP) 

EKIT 
FI 
00 
RETURN 

PROC ALIGNC) 

BYTE LLL,CLUNK=CO] 

IF LUH>58 THEN CLUNK=1 

ELSEIF LUL1>158 THEN CLUNK=2 
FI 

FOR LLL=1 TO 3 DO 
IF BSTATCLLL)<>8 THEN 
IF BXCLLL)> CX8+4) THEN 
BXDRCLLL)=-2~CLUNK 
ELSEIF BXCLLLXCX8 + 4) THEN 

BXDRCLLL)=2+CLUNK 
ELSE BXDRCLLL>=8 
FI 

IF BYCLLL)> CY8+4) THEN 
BYDRtLLL3=-2-CLUNK 
ELSEIF BYCLLL) < CYO+4) THEN 
BYDRCLLL)=2+CLUNK 
ELSE BYDR(LLL)=0 
FI 
FI 
OD 
RETURN 

PROC BALLMOUEC) 
BYTE LLP 

FOR LLP=0 TO 3 DO 
IF BSTATCLLP)<>8 THEN 
IF BSTATCLLP)=1 THEN BSTATCLLP)=2 

ELSE B5TATCLLP)=1 
FI 

BXCLLP)==+BXDRCLLP) 
BYCLLP)==+BYDRCLLP) 
ADRE5B=PMADRCLLP)+BYCLLP) 
IF BXCLLPX5Q OR BXCLLP)>198 OR 
BYCLLPX34 OR BYCLLP)>182 THEN 
B5TATCLLP)=0 

M0UEBL0CKCADRE5B, BLANK, 163 
FI 

PMHP05CLLP)=BXCLLP) 
IF B5TATCLLP)=1 THEN 

M0UEBL0CKCADRESB,BALL1,16) 
ELSEIF BSTATCLLP)=2 THEN 
M0UEBL0CKIADRESB,BALL2,16) 
FI 
FI 
OD 
RETURN 

PROC HITBALLC) 

BYTE ARRAY MISCOL (3) =$D808 

BYTE IND,PLY,DUMMI 

FOR IND=0 TO 3 DO 

IF MI5C0LCIND)>1 THEN M5TATUS CIND) =8 
PLPTR (MY CIND) ) — &PM-MISMASK CIND) 
DUMMI=MI5C0LCIND) 
IF CDUMMI&2)=2 THEN PLY=1 

ELSEIF CDUMMI&4)=4 THEN PLY=2 
ELSE PLY=3 
FI 

ADRESB=PMADRCPLY)+BYCPLY) 
M0UEBL0CKCADRE5B, BLANK, 16) 
C0LR4=10 S0UNDC1,C0LR4 LSH 4,8,4) 
BSTATCPLY)=0 PMHITCLR=1 
SC0RE==+10 UPDATEC) 

FI 



OD RETURN 

PROC ENDGAME O 
BYTE TRIGGER=644 
ERASE5HIPC) 

TXTR0W=2 TXTC0L=2 

PRINT C"GAME OUER.. PRESS &SZB TO PLAY") 

PRINTC" AGAIN") 

DO UNTIL TRIGGER=0 OD 

NUMSHIP=4 SC0RE=O TXTR0H=2 TXTC0L=2 

LUL=18 LUL1=10 SHIPSTAT=0 

PRINTC" ") 

PRINTC" ") 

TXTR0W=1 TXTC0L=12 PRINTC" ") 

UPDATEC) UPDATE5HIPC) 

RETURN 



PROC BLOHNANAYC) 
BYTE ARRAY SHIPH 
BYTE L0,TIMER=20 
IF SHIPHCO)=0 TH 
PM_HIDTHCO)=0 
FOR LG = TO 3 DO 
IF MSTATU5CLC1)=1 

PLPTRCMYCLQ)) 

SOUND C2,0,0, 
FI 

PMCLEARCLQ) BSTA 
BYCL0)=Y8 ADRE5B 
M0UEBL0CKCADRE5B 
PMHPOSCLQ)=BXCLQ 
PC0LRCLQ)=RANDC1 
OD 

C0LR4=14 S0UHDC1 
BXDRCQ)=2 BYDRCO 
BYDRCl)=-2 BXDRC 
BXDRC3)=-2 BYDRC 
DO 
IF BSTATC0)=8 AN 

BSTATC2)=0 AN 

EXIT 
FI 

BALLMOUEC) 
TIMER=8 DO UNTIL 
OD 

C0LR4=0 

SOUNDC1,8,B,0) P 
UPDATESHIPC) 
IF NUM5HIP=0 THE 
X0=128 Y8=178 
PM_HIDTHC0)=1 PC 
ADRE5=PMADRC8)+Y 
MOUEBLOCKCADRES, 
PMHP05C0)=XQ 
RETURN 



CO) =53260 
EN RETURN FI 



THEN M5TATUSCL0)=0 
==&PK_MISMASKCLQ) 
8) 

TCLQ)=1 BXCLQ)=XO 

=PMADRCLQ)+BYCLQ) 

,BALL1,16) 

) 

5) LSH 4+1B 

,C0LR4 LSH 4,8,8) 
)=2 BXDRC1)=2 
2) =-2 BYDRC2)=2 
3) =-2 

D B5TATC1)=0 AND 
D B5TATC3)=8 THEN 



TIMER=3 OD 

MHITCLR=1 NUMSHIP: 

N ENDGAME C) FI 

0LRC8)=178 



SHIPSHAPE, 17) 



PROC MAINC) 

BYTE XX, COUNT, TIMER=20 

5ND1=3 SND2=0 

DLSETUPC) 

PMGRAPHICSC) 

FOR XX=0 TO 7 DO PMCLEARCXX) OD 

Y0=120 X0=128 PC0LRC0)=178 PCLRM=14 

ADRE5=PMADRC8)+Y0 PLPTR=PMADR C4) 

MOUEBLOCKCADRES, SHIPSHAPE, 17) 

PMHP0SC8)=X8 PM_HIDTHC8)=i 

WINDOWC) 

CDTMA2=R0TATE 

CDTMU2=2 

DO 

5HIPDRAHC) 

5HIPM0UEC) SHOOTBACKC) 

ALIGNC) BALLMOUEC) 

FOR C0UNT=1 TO 3 

DO 

TIMER=0 DO UNTIL TIMER=1 OD 

5HIPFLYC) MISSILEFIREC) MIS5ILEM0UE C) 

DARKENC) HITBALLC) BLOHNAWAY C) 

OD 
OD 
RETURN 
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48K Cassette or Disk 




hgft 






tfve 



t**** 



by Mark Comeau 



Mission #2, should you choose to accept it, is to stop 
the production of the enemy's killer satellites. They're be- 
ing manufactured at this moment, in the secret enemy base 
in the Commodore mountains. If production doesn't stop, 
they'll be launched — and demolish the Earth for sure. The 
coordinates for the base are listed in your secret agent 
handbook. Land your Spy Plane immediately and get to 
work! 

On your last mission, the enemy had somehow managed 
to photocopy plans to your top-secret satellites. Cases and 
cases of the plans will be found now in the caverns of the 
base. Confiscate as many as you can, but don't let that deter 
you from your main mission. 

Once inside the caverns, look for some small portals. 
Inside are the factories producing the enemy satellites. 
Drop a radio-controlled robot into them and maneuver it 
with your hand-held spy computer. To disable the factory's 
machines, just unplug them and turn off the water sup- 
ply. After all the machines have been sabotaged, an exit 
will appear in the lower right-hand corner. 

As part of their protective system, the factories have 
tubes which emit radioactive mist. The mist is dispersed 
in straight lines, at irregular intervals. The caverns also 
contain mist portals, but, here, once the mist hits the 
ground it spreads out a little. The mist causes death on 
contact. Avoid it at all costs! 



In the caverns are empty tubes which you can use to 
travel up and down. Do not travel off the top of the tubes. 

On the first level of Spy Plane II, you can use your spy 
jump boots. These will let you "fall" down to lower sur- 
faces without injury. After the first level, though, the boots 
will become useless. Any fall will result in death. 

There are two factories on each cavern screen. When 
you've sabotaged the first, it will blow up and disappear. 
Both of the factories must be destroyed before an exit 
appears. 

Each level of the game has four cavern screens, all of 
which must be completed before the satellites are pro- 
duced. On the first level, there's a 500-second time limit. 
In every succeeding level, the time it takes to produce 
satellites is decreased by 50 seconds. If the factories are 
not destroyed and your exit accomplished in time, you'll 
see the satellites launch and destroy the Earth. When the 
Earth is destroyed, you lose a life. 

The fate of the world rests heavily upon your shoulders. 
You have only four lives in which to complete your mis- 
sion, so live them with care. 

Running and playing the game. 

Type in Listing 1 exactly as it appears. Be careful with 
the data statements. 

Type RUN, and the screen will go blank for about 30 
seconds. Then the Spy Plane will land, and your man will 
get out. After that, the familiar Spy Plane logo will ap- 
pear. Press the fire button to start the game. 
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«4> Spy Plane II 



continued 



After you press the fire button, the score display will 
appear. Press the fire button again to get to the first screen. 
During the score display, if you press START, the computer 
will end the game. 

On the first screen, your man will automatically climb 
out of the plane and down a tube. Cases of plans (worth 
10 points) are located all around him. Each screen is worth 
100 points. The destruction of a factory will win you 100 
points, while the sabotage of each plug or faucet inside 
is good for 20 points. 

Programming tips. 

When the program is run, it turns the screen display 
off, reading and initializing all the necessary stuff. "Why 
in the world would you want to turn the Atari's superb 
graphics display off?" you may ask. Because the initiali- 
zation process takes a while — anything that can make it 
speed up is A-OK. When the screen is turned off, the com- 
puter is freed from graphics — everything else speeds up. 

To do this, just POKE 559,0. I even use it to turn the 
screen off when displaying screens. Instead of a flicker, 
you get a split-second of black, then a quick display. 

If you look at the Spy Plane II program, you'll see that 
every number from to 20 has a C in front of it. This is 
done to conserve memory. The computer has an easier time 
handling variables than numbers. I saved 2263 bytes by 
using constants on this program. The variables are defined 
with an unusually large read-data combination. Look at 
Lines 2510 and 2520. 

With the kind of character-set/player-missile graphics 
used in this game, everything is displayed in 8*8 squares, 
in order to make things manageable enough for BASIC. 
But you'll notice that the man moves around pretty 
smoothly. If moved in steps of 8, he would skip around 
and wouldn't look too good. Instead, he moves in steps 
of 2 until he gets to the 8th pixel, because he has to match 
the character set graphics display. 

The trick is to set two variables to the joystick position 
to determine the direction of the player. Each direction has 
a variable X- and Y-step, which is either 2 or -2. A 
FOR . . . NEXT loop from 1 to 4 displays the player/mis- 
sile character each time, adding the X- and Y-step values. 
Whoa! Did you catch all that? 

Each direction the spy may go must have a bit-mapped 
graphic stored in a string array. This is so that the play- 
er/missile graphics routine can display it nice and quick- 
ly. The only drawback is that each graphic has to have a 
different string. "But that's a little too slow for BASIC," 
you say. Fear not. 

The way to get around it is to put all your player/mis- 
sile graphics into one string. Use a variable for the string 
pointer of your intended graphic. It goes in steps of 8, be- 
cause each character should take up 8 bytes. The pointer 
is set to whichever graphic you want. All of the data for 
your player/missile can be read in with one FOR . . . NEXT 
loop, as in Line 2580. 

If you were to have an IF. . .THEN statement for every 
joystick position, your player/missile wouldn't go very fast 
at all. I use what's called Boolean algebra. What the heck 
is that? Well, it's really simple. Here's an example. . . 



100 S=STICK(0):SX=(S=7 AND X<456)*2-(S=11 AND X>304)*2 

If the conditions inside the parentheses are met (S=7 
and X<456), then the value will be a 1. If the conditions 
are not met, the value will be a 0. If the stick position is 
a 7 and X is not too high, then it will be multiplied by 
2. This particular expression will give a result of either 
a 2 or -2. 

The other Boolean expression used is in Line 110. It's 
only purpose is to determine what the pointer for the play- 
er/missile array will be. 

Program breakdown. 

Lines 10-70 — A little credit, please!. 

Line 80 — Branch to initialization. 

Lines 90-230 — Main loop. Movement, etc. 

Lines 240-270 — Vaporize case. Make it blow up! 

Lines 280-400 — Fall down and/or figure out if it is a 
fatal fall. 

Lines 410-430 — Death. Figure out if it is the last man. 

Lines 440-510 — Emit radiation. 

Lines 520-530 — Next screen and see if it is the last. 

Lines 540-700 — Display score, then display screen and 
go to main loop. 

Lines 710-770 — Walk out of plane. 

Lines 780-940 — Small init for factory. 

Lines 950-1020 — Main loop for factory. 

Lines 1030-1180 — Display factory radiation. 

Lines 1190-1200 — Check to see if RC robot is stepping 
on something harmful. 

Lines 1210-1250 — Make RC robot die. 

Lines 1260-1290 — Unplug machines. 

Lines 1300-1330 — Go back to main loop. 

Lines 1340-1510 — Launch satellites and destroy Earth. 

Lines 1520-2070 — PRINT #6 values for your graph- 
ics screens. 

Lines 2080-2230 — Display title screen. 

Lines 2240-2350 — Land the Spy Plane, and then dis- 
play the logo. 

Lines 2360-2470 — GAME OVER message with high 
score and last score. 

Lines 2480-2520 — Start initializing. 

Lines 2530-2560 — P/M mover — by Tom Hudson. 

Lines 2570-2590 — Set up data for radiation and exits. 

Lines 2600-2660 — Character set initializer — created 
by Steven Pogatch. 

Lines 2670-2690 — Character set init DATA. 

Lines 2700-3010 — Character set graphics DATA. 

Lines 3020-3060 — P/M mover DATA. 

Lines 3070-3120 — P/M graphics DATA. 

Lines 3130-3180 — Radiation DATA. 

Lines 3190-3200 — Exit DATA. 

Okay, the game's up. I hope you get hours of fun from 
Spy Plane II. 

Mark Comeau is a self-taught BASIC programmer from 
Piscataway, New Jersey. This is his fourth program pub- 
lished by ANALOG Computing. The original Spy Plane 
appeared in issue 21. His interests include graffiti art, rock 
&■ roll music, Atari and video games. 
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Variables used. 


A 


For P/M mover. 


C 


ATASCII value of the character that the player is on. 


D 


ATASCII value of the character the player is 




stepping on. 


DF 


Flag for death fall. 


GTM 


Time limit. 


GX 


GR. 2 horizontal position of player. 


GY 


GR. 2 verticle position of player. 


IT 


For READing IT. 


L(T) 


All the DATA for the radiation. 


MEN .... 


Number of men left. 


MN$ .... 


Graphics data for player/missile. 


PMD .... 


Position of MN$ in memory. 


S 


STICK value. 


SC 


Current screen number. 


SCO 


Score. 


T 


Counter for radiation. 


TM 


Time left to complete screen. 


WX 


Horizontal position of factory portal. 


X 


Horizontal position of player. 


Y 


Vertical position of player. 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 



HE 10 

m 20 

UH 30 
HR 40 
HK 50 
CU 60 
WK 70 
KT 80 
YU 90 
AG 100 



[ 



Listing 1. 
BASIC listing. 



SPY PLANE 
II 



REM 
REM 
REM 
REM 
REM 
REM 
REM 

GOTO 25 10 
REM ■■MAIN LOOP 
5=5TICKtC0) :SX=CS 



BY l 
FORI 



A.N. A.L. 0.G 



I 



:C7 AND X<456J*C2 

-tS=Cll AND X>304J*C2 
MF 110 PS=£S = C7J*C0+C5 = Cll)*C8+r.S = C15J*PS 
YS 120 5Y=C0:IF C = 230 THEN SY= C5=C13 AND 

Y<104 AND D<>71 AND D<>72)*C2- £S=C14 A 

ND Y>C16)*C2:P5=C16 
MI 130 FOR IT=C1 TO C4 
0A 140 X=X+SX:Y=Y+5Y:A=USR(M0UE,C0,PMB,PM 

D+PS,X,Y,C8) 
PP 150 NEXT IT 
EG 160 TM=TM+Cl:GX=CX-304)/C8:GY=CY-C16)/ 

C8:L0CATE GX,GY,C 
HI 170 IF C=217 THEN G05UB 250 
E5 180 IF C=71 OR C=72 THEN 370 
BM 190 IF C=122 THEN 530 
HL 200 IF C=105 THEN 790 
UT 210 LOCATE GX, GY+C1 , D : IF D = 32 AND C<>2 

30 THEN 290 
WY 220 T=T+RNDtC0)*C2:IF T>C10 THEN GOSUB 

450 
LN 230 GOTO 100 

HX 240 REM ^■VAPORIZE CASEH1 
WF 250 5C0=SC0+C10:C0L0R 203:PL0T GX,GY 
YR 260 FOR IT=C14 TO CO STEP -CliSOUND CO 

,IT,CO,IT:NEXT IT 
ZC 270 COLOR 32:PL0T GX,GY:50UND CO, CO, CO 

,C0:RETURN 
ZA 280 REM ■■FALLB1 
RX 290 IF DF=C1 THEN 370 

IK 300 FOR IT=GY TO Cll: LOCATE GX,IT,C 
AM 310 IF C<>32 AND C<>217 THEN 330 
MR 320 NEXT IT: GOTO 370 
PW ZZQ IT=IT-C1:F0R Y=Y TO IT*C8+C16 : SOUN 

D C0,Y,C14,C4:50UND CI, Y + Cl, C14, C4 



REM ■■FIRE LAZERBH 

IF TM>GTM THEN 1350 

T=CtINTtRND(C0J*LCSCJ3)*C3)+L(SC+C 

LX=LCTJ :LY=LCT+Ci) : LN=L (T+C2) :T=C0 
COLOR 107:G0SUB 510:S0UND C0,C2,C4 



WI 340 A=USRtM0UE,C0,PMB,PMD+C16,X,Y,C8) 
GO 350 NEXT Y : Y=Y~C1 : SOUND CO, CO, CO, CO : SO 

UND CI, CO, CO, CO 
LU 360 GOTO 100 
ZM 370 FOR Y=Y TO 134 
MP. 380 A=U5RCM0UE,C0,PMB,PMD+Ci6,X,Y,C8J 

390 SOUND C0,Y+121,C14,C14 

400 NEXT Yi SOUND CO , CO, CO, CO 

410 REM BiDEAThlHi 

420 WX=-C1 : WX2=-C1 : TM=C0 : MEN=MEN-C1 : IF 
MEN<C0 THEN 2370 

430 GOTO 550 

440 

450 

460 

4) 

470 

480 

,C14 

490 LOCATE GX,GY,C:IF C=107 THEN 370 

500 COLOR C20+C12!GOSUB 510:S0UND C0,C 

O,CO,C0:T=C0:RETURN 

510 PLOT LX,LY-LN:DRAWTO LX,LY:DRAHTO 

LX-C1,LYJDRAWT0 LX+C1, LY : RETURN 

520 REM ■■NEXT SCREENHH 

530 TM=C0:WX=-Ci:HX2=-Cl:SC=5C+Cl:IF S 

C=C5 THEN SC=Cl:SC0=SC0+100:DF=Cl:FL=C 

l:GTM=GTM-50: GOSUB 550:GOTO 720 

540 REM ■■GOTO SCREENHH 

550 POKE 77, CO:? «C6; CHRS CI25J : P05ITI0 

N C7,C3:? OC6;SC0:C0L0R 108:PL0T C7,C5 

IDRAWTO C7+MEN,C5:P05ITI0N CO, CO 

560 A=USRCMOUE,CO,PMB,PMD,C0,CO,C0) 
? »C6j"NNNNNNN = >?0UNNNNNNNN 1 '; 
? ttC6;"UUUUUUUUUTUUUUUUUUUU M ,- 
POSITION 

TJ 



OX 
KB 
JC 
HY 

PG 
WF 
NS 
KY 

EG 
SZ 

HN 
TI 

MS 

FT 
UN 



CO. 
IL 



EP 
FE 
F" 
ZO 
PP 
QG 
NI 
SB 



570 
580 
590 
600 
610 
620 



C0 + C10 



? «C6;" 
? ttC6;" 
IF PEEKC53279) 



rt 



m 



tttttt 



pc THFN 7770 

630 POKE 708,RNDCC0)*255:P0KE 710,RNDC 
C0J*255:IF STRIGCC0)=C1 THEN 620 
640 POKE 708,52:P0KE 710,164:P0KE 559, 
COlPOSITION C0,C0!0N SC GOSUB 1530,167 
0,1810,1950:C0L0R 32 
650 IF WX>-C1 THEN PLOT WX , WY 
660 IF WX2>-Ci THEN PLOT WX,WY 
670 HWX=WX:HWX2=WX2 
OT 680 IF WX<C0 OR WX2<C0 THEN PLOT DCtSC 

-C1)*C2) ,Dt(SC-C13*C2+Cll 
AM 690 IF 5F = C1 THEN SF=C0 : RETURN 
PS 700 POKE 559, 46: GOTO 100 
SS 710 REM ■iWflLK OUT OF PLANEB1 

POKE 559,46: Y=32:F0R X = 368 TO 383 

A = USRCMOUE,CO,PMB,PMD,X, Y,C83 

NEXT X 

FOR Y=32 TO 55 

A=USR(M0UE,C0,PMB,PMD+C16,X,Y,C8J 

NEXT Y: GQTO 10O 

REM IHIFACTORYIIH 

POKE 559,C0:P0SITI0N CO, CO 

» ttC6;"eee eecee eeec eeecc eee"j 



ON 



HC 
GN 



UO 
KB 
LZ 
NB 



IG 
KF 
WC 
KT 
TR 
AM 
OF 
MA 
PP 
PR 
HO 
OP 
BA 
TO 



720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 



ccccchhuccccc 
xrCCpCCxrrrCCpCC 



»C6;"e 
»C6j"eE 

»C6;"ew 

»C6;"ew 

»C6;"e 

«C6;"er 

«C6; M eE 

»C6;"e 1HHHHH 1HKHK* 

KM 910 ? »C6;"eeeeeeeeeeeeeeeeeeee M j 

SX 920 POKE 559,46 

RE 930 FOR I=CO TO C3:50UND I, CRND CC0J*C5 

3+C10,C8,C2:NEXT I 
PL 940 RX = 4 48: RY = 96:P::C0:IT = CQ 
BD 950 REM BHRC ROBOT MOUEMENTIH 
ZR 960 S=STICKCC03 :RX=RX+CS=C73*C8-CS=C11 



srCCiCCsrrrCClCC 
xrCCpCC xrrr CCpCC 
ccccc 



e" 
e" 
e" 
e" 
e" 
e" 
e" 
e" 
e" 
e" 
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*j§^ Spy Plane II 



continued 



HG 


1060 
Y = C5 


IF 


KV 


1870 
Y = C6 


IF 


OG 


1080 


IF 


SB 


1890 


IF 


PY 


1100 


IF 


TN 


1110 


IF 



)*C8:RY=RY+C5=C13)«C8- CS=C14)*C8 
AO 970 A=USR{M0VE,C0,PMB,PMD+24,RH,RY,C8) 
5ft 980 GK=CRK-304)/C8:GY=(RY-C16)/C8:L0CA 

TE GX,GY,C 
OV 990 IF C = 105 THEM 1310 
OP 1000 IF C = 243 THEM COLOR 239JPL0T GX,G 

Y:G05UB 1270 
5H 1010 IF C = 248 THEM COLOR 237:PL0T GX,G 

Y:50UND IT,C0,CO,CO:IT=IT+C1:GO5UB 127 

O 
TB 1020 TM=TM+C1:IF C<>32 THEM 1200 
SX 1030 REM ■■RADIATIONHI 
PK 1040 B=B+RND(CO)*Cl:IF B<C10 THEN 960 
EL 1050 B=C0:T=INTCRNDCC0)*C6J+C1:S0UND C 

0,C14,C2,C14 

106O IF T = Ci THEM LX=C2 : MX=C18 : LY=C5 : M 

T=C2 THEN LX=C2:MX=C18:LY=C6:M 

T = C3 THEN B=C1:LX=C3 

T=C4 THEN B=C1:LX=C6 

T = C5 THEN B=C1:LX=C12 

T = C6 THEN B=C1:LX=C15 

GD I120 COLOR 107:IF B=CO THEN PLOT LX,LY 

: DRAWTO MX, MY 
QE 1130 IF B = C1 THEN PLOT LX,C5:DRAWT0 LX 

,C6:DRAWT0 LX+C1,C6:DRAWT0 LX+C1,C5 
ZK 1140 LOCATE GX,GY,C:IF C=107 THEN 1220 
Uli 1150 COLOR 32:IF B = CQ THEN PLOT LX,LY: 

DRAWTO MX, MY 
NW 1160 IF B=l THEN PLOT LX,C5:DRAWT0 LX, 

C6:DRAWT0 LX+C1,C6:DRAWT0 LX+C1,C5 
JR 1170 SOUND C0,CO,C0,CO!IF IT = CQ THEM S 

OUND C0,C4,C8,C2 
TM 1180 GOTO 960 
LK 1190 REM ■■DEATH7HH 
SG 1200 IF C = 243 OR C=248 OR C=237 OR C=2 

39 OR C=242 THEN 960 
AM 1210 REM ■1DEATHH 
BN 1220 FOR IT=C1 TO C3:50UND IT, CO, CO, CO 

:NEXT IT:SF=CO 
AM 1230 FOR IT = C8 TO CO STEP -1:P0KE 712, 

RNDCC0)*255:P0KE 707, RND CC0)*255 : SOUND 
CO,RNDCC0)*255,C4,C14 
UA 1240 A=USR(M0VE,C0,PMB,PMD+24,RX,RY+C8 

-IT, IT) 
IF 1250 NEXT IT:50UND CO, CO, CO, CO : POKE 71 

2, CO: POKE 707, C14:WX=-C1:WX2=-C1: GOTO 

420 
OR 1260 REM ^■PLUGS OR FAUCET5B 
DB 1270 FOR V = CO TO ClOiSOUND C0,y,C0,U+C 

4:NEXT UlSOUND CO, CO, CO, CO 
DH 1280 SC0=5C0+C20:P=P+Ci:IF P = C8 THEM C 

OLOR 105:PL0T C18,C10 
BE 1290 RETURN 
GT 1300 REM HHGO BACKHi 
HJ 1310 RX=X:RY=Y 
ac 1320 X=RX:Y=RY:WX2=HX:WY2=WY:SF=C1:G05 

UB 550:X=RX:Y=RY:WX=CX-304J/C8:WY=CY-C 

163/C8 

om 1330 color 2i7:pl0t hx,hy:poke 559,46: 
sco=5CO+10O_:goto 100 

PX 1348 REM IHDESTROY EARTHflH 

MU 1358 ? ace;"*": position co,C9 

YT 1360 ? »C6; M B AB "j 

JB 1378 ? »C6;"CB AB ABABACCBAB"; 
MS 1380 ? ttC6j M CCBACCBABACCCCCCCCCC M ; 
KM 1390 A=USRCMOyE,C0,PMB,PMD,C0,C0,CO) 
IV 1400 FOR IT=CO TO C15:S0UND CO,RNDCCO) 

*255,C8,IT 
OB 1410 FOR X=20O TO 100 STEP -ClOiSOUND 

C1,X,C14,IT:NEXT X 
VM 1420 NEXT ITlSOUND CI, CO, CO, CO 
By 1430 FOR IT=CO TO CI9 : X=RND £C0)*C19 : CO 

LOR 107.-PLOT X,C9:PL0T X,C8 
GC 1440 FOR Y=C8 TO CO STEP -CllCOLOR 240 

iPLOT X,Y:COLOR 32 : PLOT X,Y+C1:S0UHD C 

O, Y+C4,C0, Y+C4 



MM 1450 
GC 1460 

ND C 
JY 1470 

COLO 

32 

5P 1480 

HJ 1490 

5TE 

E 71 
EZ 1500 
CP 1510 

42 
PP 1520 
DM 1530 
EP 1540 
XK 1550 
MU 1560 
GY 1570 
EY 1580 
VL 1590 
HB 1600 
EG 1610 
ZX 1620 
UM 1630 
GD 1640 
TK 1650 
GY 1660 
DP 1670 
TC 1680 
XJ 1690 
MB 1700 
TD 1710 
MK 1720 
KZ 1730 
HH 1740 
LE 1750 
FX 1760 
RR 1770 
UH 1780 
XT 1790 
RF 1800 
JO 1810 
XG 1820 
VP 1838 
XA 1840 
AX 1850 
VP 1860 
LD 1870 
AK 1880 
EG 1890 
VT 1900 
WM 1910 
TA 1920 
ZL 1930 
SO 1940 
AM 1950 
HN I960 
PY 1970 
X5 1980 
OM 1990 
FY 20OO 
AV 2010 
SE 2020 
KO 2030 
XV 2040 
GK 2050 
FP 2060 
HP 2070 
00 2080 
UF 2090 

,PEE 

:pok 
JY 2100 
SB 2110 
PO 2120 
XR 2130 
KK 2140 



1S0U 



NEXT Y : NEXT IT 

FOR IT=CO TO 50:X=RNDCCO)*C19: 
0,CO,C0,CO:LOCATE X,CO,C 

IF C=240 THEM SOUND CO, C9, C4, C14 : 
R 107JPL0T X,Cl:DRAWTO X,C11:C0L0R 
PLOT X,C1!DRAWT0 X,C11 

NEXT IT 

SOUND CO,C0,CO,CG:FOR I=C14 TO CO 
P -Cl:X=RND(C0)*255:P0KE 712,X:P0K 
0,I:SOUND C0,X,C8,C14 

NEXT I 

POKE 712,C0:S0UND CO, CO, CO, CO : GOT 
O 

REM ■■SCREEN ttlHi 



7 

? 

7 

7 

7 

7 

7 

7 

1 

7 

7 

7 

X: 

REM 



«C6 
8C6 
8C6 
8C6 
8C6 
8C6 
ttC6 
8C6 
ttC6 
8C6 
8C6 
OC6 
384 



"B 

"CB AB 

"CCBACCBd 

"CCCCCCCeeet 

"HGHGJHGHGM 



ABAB A 

ACCCCBAC 

IACCCCCCCC 

CCCCCCCCC 

HGHGHGHGH 



"QD i D D D I 

"jGHG QGHGHGHGHGJH 

" ] □ GB iOQ 00 



" jHJGHGHG 

II ■ 

■■[j q d d 

"GHGHGHGHGHGHG 
Y=56:RETURM 
■SCREEN mi 




HGHGH 

Hz 
GHGHGH 



8C6 
ttC6 
«C6 
«C6 
OC6 
8C6 
ttC6 
8C6 
«C6 
«C6 
8C6 
8C6 
304 




□ D B 

jHGJHGHT 



GJHGHGHGHGHGH" 

□ 

hGghg 



a qo " 

JHJGffiB" 
HHG j" 



"HGHG 

■■ a 

"GHGH 

-a a 



□ Di 

GHGHGHGHGH GHG 



:: 



□ a zq □ cC" 

"HGHGHGHGHGHGHGHGHGHG" 
Y=C16:RETURN 
|SCR 

□ 



7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

X: 

REM | 

? 8C6; 1 

ttC6;' 

OC6; 1 

OC6j' 

OC6J 1 

HC6; 1 

ttC6;' 

«C6j' 

«C6 J ' 

ttC6j' 

ttC6j' 

ttC6;' 
X = 328:' 
REM ■ 
? ttC6j' 

ttC6;' 

ttC6;' 

8C6;' 

«C6;' 

«C6;' 

»C6;' 

ttC6;' 

«C6;' 

«C6;' 

ttC6j' 
? ttC6;"GGGGGGGG 
X=312jYrC16 : RETURN 
REM HHTITLE SCREEN^B 
GRAPHICS C18:P0KE 559,C0:P0KE 756 
Ktl06)+Cl:POKE 704,C14:P0KE 708, CO 
E 709,C15:P0KE 710,C0:P0KE 711,52 
? ttC6;"NNNNNNN=>?GUNNNNNNNN , 
? ttC6; M UUUUUUUU UTUUUUUU UUUU"; 
? ttC6;" 

? «C6;" 




HHHGHGl 

□ CCG 
1GGGGGG 

kua □ 

"HGHGH GHGHGHGHGHGHGH' 
Y=C16: RETURN 

I5CREEN tXAWM 

a a d z 

SGGGGGf 

□ 

]GG GGGJG 

ggqggggg 
Hgggggg 

GGJGGG[. 

□ a d a 

GGGGGGGGGGG' 





tt 



flffi 



ttttttt 



? SC6 ; "MMMMNNN=> ?gV NNNNNNNN 
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SN 


2158 


t 


8C6j" 


UH 


2160 


t 


»C6; M 


MM 


2170 


■y 


ttC6;" 


YJ 


2180 


t 


ttC6j" 


TV 


2190 


•> 


»C6;" 


ID 


2200 


•> 


«C6;" 


FD 


2210 


•I 


Bee;"! 



UUUUUUUUUTUUUUUUUUUU 



bNNNNNN=>?GUNNNNNNab 
CbabU UUUUTUUUU UUUaCC 

ccccbB| ■■abaccc 
cccccbB ■acccccc 
ccccccbB ■Faccccccc 

CCCCCCCHJIEFCCCCCCCC 



XH 2220 POKE 559, 46 : B=C10 : Y=CO 

FB 2230 IF STRIGCCO)=CO OR 5=0.1 THEN 227 


M 2240 REM ^BLANDBH 
KT 2250 FOR I = CO TO 33 : B = B*0 . 91 : Y=Y+B : A = U 

SRCMOVE,C0,PMB,PMD + 32,36O, Y,C8) 
DS 2260 50UND CO, Y*2 . 6, C14, C14 : SOUND Ci,Y 

*2.6,C14,C14:S0UND CI, Y, C8, C14 : NEXT I 
QP 2270 COLOR 100:PL0T C7, CIO : A = USR (MOVE, 

C0,PMB,PMD,CO,CO,CO) 
ZL 2280 SOUND CI, CO , CO, CO : SOUND CO, CO, CO, 

CO 
JH 2290 FOR I=CO TO 100:NEXT I 
AH 2300 SOUND CO, 100, C13, C14 : SOUND CO, CO, 

CO,CO:COLOR 108:PL0T C8,C10 
RM 2310 FOR I=CO TO C14:P0KE 708,I:P0KE 7 

10,I:F0R B=CO TO C10:NEXT B:NEXT I : IT= 

C0:5=0.1 
SU 2320 POKE 708,RNDC03*255:P0KE 710,RNDt 

C0)*255 
TA 2330 IF 5TRIGCC0J=C0 THEN 2440 
KE 2340 IT=IT+Cl:IF IT>250 AND SC>CO THEN 

2370 
OF 2350 GOTO 23 20 
NT 2360 REM ■■GAME OVERlH 
UO 2370 IF HK5C0 THEN HI=SCO 
KK 2380 fl=USRCMQUE,CO,PMB,PMD,C O,CO,CQ] 
EM 2390 GRAPHICS 18:? 8C6;" WSMESSM " 

:? ttC6:? ac6;" score":? ace;" 

"jSCO:? 8C6:? 8C6;" high score" 

ZP 2400 ? 8C6J" ";HI!IT=C0:P0KE 709, 

C14SP0KE 708,100 
DP 2410 IT=IT+C1:P0KE 710, RND £C0)*255 
IN 242Q IF 5TRIGCC0)=CO OR IT>100 THEN 20 

90 
0.A 2430 GOTO 2410 

TF 2440 IF 5TRIGtC0)=C0 THEN 2440 
LN 2450 POKE 708,52:P0KE 710,164:P0KE 711 

,70 
UP 2460 SC=Cl:WX=-Cl:WX2=HX:SC0=C0:MEN=C3 

; DF=CO : 5F = C1 : TM=CO : GTM=500 
IR 2470 GOSUB 550:G0T0 720 
RV 2480 REM ■■INITALIZATIONBB 
JG 2490 REM 

KR 2500 REM ■■P/M MOVERBB 
LG 2510 READ CO , CI, C2, C3, C4 , C5, C6, C7 , C8, C 

9, 010,011,012, £13,014,015,016,017, CIS, 

C19 C20 
EJ 2520 DATA 0,1,2,3,4,5,6,7,8,9,10,11,12 

,13,14,15,16,17,18,19,20 
SB 2530 DIM PMMOV$C100J,MN$C4O) ,XFRSt38) , 

LC50J ,DtC7) 
HN 2540 POKE 559,C0:P0KE 712, 52 : M0VE=ADR C 

PMMOV$J IRE5T0RE 3030:FOR B=C1 TO 100 : R 

EAD IT:PMMOV$CB)=CHR$ tIT) :NEXT B 
GR 2550 FOR B=C1 TO 40:READ IT : MN$ CB) =CHR 

$CITJ INEXT B 
BM 2560 PMBASE=INTCCPEEKC145)+C3)/C4)*4:P 

OKE 54279, PMBASE : PMB=PMBASE*256 : PMD=AD 

R CMN$) : PO KE 53277, C3 
JO 2576 REM ■■DATA 5ETUPHH 
C« 2580 RESTORE 3140:F0R B = C1 TO 50:READ 

IT:LCB)=IT:NEXT B 
II 2590 FOR B = C0 TO C7:READ IT : D CB3 =IT : NE 

UT ft 

JY 2600 REM ■■Char. Set INITBH 

MC 2610 POKE 712,190.-P0KE 106 , PEEK C106J -0 

5: STARTS CPEEK 11Q6) +CDK256: POKE 756, ST 

ART/256 
TR 2620 RESTORE 2680:F0R B=C1 TO 38:READ 

IT:XFR$fB)=CHR$ tIT) INEXT B 



PU 2630 
HO 2640 
MO 2650 

READ 
XV 2660 
VG 2670 
QA 2680 

9,22 

,160 
TT 2690 

201, 
PC 270O 
NU 2710 

43 
SC 2720 
UY 2730 
CK 2740 
EJ 2750 
FI 2760 
MV 2770 

255 
WK 2780 
EZ 2790 

6 
AM 2800 

195 
UL 2810 
TD 2820 
IE 2830 
MO 2840 

26 
MI 2850 
VV 2860 
ZA 2870 
UE 2880 
NR 2890 
EP 2900 
BG 2910 

55 
ME 2920 
MH 2930 
JO 2940 
HP 2950 
AS 2960 
KR 2970 

128 
YA 2980 
HU 2990 
DH 3000 
EJ 3010 
AY 3020 
MA 3030 

24,1 

04,1 
BM 3040 

01,2 

24,1 
TM 3050 

162, 

2,21 
UK 3060 

169, 

213, 
BD 3070 
MM 3080 
JQ 3090 
SP 3100 
PH 3110 
OH 3120 
NH 3130 
EQ 3140 
RY 3150 
CA 3160 
CC 3170 
OM 3180 
00 3190 
UU 3200 



A = USR 
IF IT 
FOR Y 
IT:NE 
B = B + C 
REM | 
DATA 
4,133, 
,0,177 

DATA 
228,20 
REM I 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 



CADR(X 
= -Cl T 
= C0 TO 
XT Y 
8:G0T0 
DATA 
104,16 
206,16 
,205,1 
249,23 
8,237, 
■ Char 
120,24 



FRSJJ :B=232:READ IT 
HEN 2090 
C7IP0KE B+Y+START,IT: 




7,251,2 



0,0,172,172,172,188,24,24 

120,108,109,109,121,97,97,97 

0,0,157,149,149,157,213,213 

0,5,5,23,23,95,95,255 

0,64,192,208,248,250,254,255 

255,255,255,255,255,255,255, 

0,0,0,192,118,63,112,192 
255,17,255,136,255,17,255,13 



DATA 129,129,195,195,129,129,195, 

DATA 255,153,255,255,239,170,34,0 
DATA 255,153,255,255,221,213,69,0 
DATA 0,0,24,60,52,60,60,60 
DATA 255,153,255,255,219,24,126,1 

DATA 84,130,37,74,145,36,80,9 
DATA 24,52,24,58,92,24,100,70 
DATA 96,32,112,255,255,112,0,0 
DATA 0,0,0,0,0,0,255,255 
DATA 0,56,252,63,63,252,56,0 
DATA 129,90,68,126,126,60,90,129 
DATA 126,126,24,219,255,255,153,2 

DATA 0,8,0,255,255,0,0,0 

DATA 0,224,240,255,255,240,224,0 

DATA 0,126,126,36,36,36,126,126 

DATA 0,255,255,0,0,0,0,0 

DATA 0,0,215,214,215,246,119,119 

DATA 128,240,131,255,255,131,240, 
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^■:. ■■ 



Make 



connection! 



ANALOG Computing 
on Delphi 
puts you on-line 
with the world. 



tiiiiiiiiii \ 



Delphi, an on-line, full-service 

information network, offers news and 

sports from the Associated Press, 

weather reports, movie reviews, 

shopping services, travel 

information, and more. 



ANALOG Computing, 

the #1 magazine for Atari 

owners, brings you the Atari 

Users' Group on Delphi. We offer 

a message forum and an extensive 

database for up- or downloading — all from 

as little as 10 cents per minute from most U.S. 

cities, with no additional telephone charges and no 

extra charge for 1200 or 2400 bps. We'll use the group's "^ 

conference feature for electronic meetings with well known 

Atarians and, of course, ANALOG staff. Bring on your toughest 

questions! 




Special rates 

Subscribers to ANALOG Computing or ST-Log may join without charge, and will receive 
a free lifetime Delphi membership, a Delphi Command Card and $5.00 of line-time credit 
applicable to their account. If you purchase the Delphi Handbook — the highly detailed 
manual on using the whole Delphi system— for $29.95, you will get an additional $20.00 of 
line-time credit. And you can subscribe to either ANALOG Computing or ST-Log directly, 
while on-line, to be eligible for these bonuses. 

How to connect 

First, select a data communications network: Telenet or Tymnet (in the U.S.), or 
DataPac (in Canada). In the Boston area, dial Delphi direct (617-576-0862). To 
determine your local Telenet number, dial 800-TELENET or 703-689-5700 (in 
Alaska, 907-264-7391). To obtain a Tymnet number, call 800-336-0149. if you have 
difficulty, call Delphi at 800-544-4005 (in Massachusetts, 617-491-3393). Current 
subscribers to ANALOG Computing or ST-Log should type JOINATARI when 
asked for user name. When asked for a password, type ANALOG. Those who 
.wish to subscribe to either magazine ohrline should, instead, type SUBSCRIBE at 
the password prompt. Once on. .Deiphi^yo " 
Clubs" menu . To ■get-th 
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by Paul T. Sprague 



Reversi is a strategy game written in Action!, a won- 
derful language from OSS. It's not only very fast in com- 
pilation and execution, but also has the best editor I've 
ever seen. Action! makes it possible to write games such 
as this one in a high-level language — and yet still be able 
to realize the speed of assembly language (or very close 
to it). 

The rules of Reversi are quite easy to grasp. The board 
starts out with two white pieces and two black pieces in 
the center (as you'll see when you start up the program) . 
White moves first, then black, then white, etc. . . .until all 
squares are taken up, or neither player can move. 

A move consists of placing your piece on an empty 
square, thereby capturing all your opponent's pieces be- 
tween your played piece and another piece of your color. 
Your pieces must be flanking those of the opponent, with 
no squares left empty between the pieces. 

These captures may take place horizontally, vertically, 
or diagonally. Also, you may capture pieces in more than 
one direction in a single move (even in all eight direc- 
tions). 

The pieces thus taken become your color; so ends your 
turn. 

One important point: you must capture at least one 
piece in order to make a legal move. If you can't do this, 
you must pass and allow your opponent to move again. 



The winner is the player with the most pieces of their 
color on the board when the game ends. 

That's all you need to know to play Reversi. The rules 
may seem quite simple, but, the more you play, the more 
strategies you find which are important for good play. 

The fine points. 

This Reversi program allows for three different modes 
of operation. A menu of these appears after the board has 
been drawn at the beginning of the game. 

The computer will ask you to choose a playing mode: 
1 for computer vs computer, 2 for human vs computer and 
3 for human vs human. Pressing either 1, 2, or 3 at this 
point will select the appropriate mode. Note that you don't 
need to (nor should you) press RETURN after entering the 
number. 

In mode 1 (computer vs computer) , you'll be asked to 
select the strategy level for the white and black sides. The 
game will then begin, and you'll see white and black ex- 
changing moves on-screen until the game's over. This prob- 
ably isn't really helpful in learning game strategies, but 
it is quite interesting to watch. 

Mode 2 (human vs computer) first prompts you to se- 
lect the color (white or black) you wish to play. To do this, 
simply press W for white or B for black. (The computer 
automatically plays the opposite color; it never argues — 
well, almost never.) Once colors are selected and you 
choose the skill level of the computer (more on this later) , 
play begins. If you're white, you'll go first. Otherwise, the 
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computer will make the first move. Regardless of which 
color you pick, you'll always use joystick 1 in this mode. 
Mode 3 (human vs human) allows you to play against 
a friend. In this mode, joystick 1 is the white player and 
joystick 2 is the black. 

To move, you must have a joystick plugged into the cor- 
rect port. The cursor appears on-screen and may be moved 
around via joystick. Place the cursor on the square to 
which you wish to move and press the fire button. If the 
square is a legal one for your move, a piece of your color 
will appear there, while all pieces which your move cap- 
tured will be changed by the computer. If you have no le- 
gal move, then you must forfeit your turn by pressing P 
(Pass) on the keyboard. 

At the end of each game, the computer will ask wheth- 
er or not you'd like to play another game. If you want to 
play again, press the Y key. This will cause the game board 
to be reinitialized and the starting menu to appear. 

As mentioned above, in each case where the computer 
plays one or both sides, it will ask you to select a skill level 
for each color. Here are the basic strategies for each level. 
Good: The second level, using the least strategy of 
the three, plays simply for capture of the most pieces. 
This is the way most beginners play. Soon, however, 
it becomes evident that more thought is necessary. 
Better: The second level combines the previous 
method with a knowledge of which squares are bet- 
ter to hold. The map of numbers you see at the be- 
ginning of the program (Listing 1) accomplishes this. 
However, in this level the map is static (it doesn't 
change as the game progresses). 

Best: Our third level also uses the map, but has map 
updates in special cases, to account for possible 
changes in the strategic value of a square. Although , 
in play against humans, this level seems quite a bit 
better than the second, when the two levels are played 
head-to-head, the difference is not particularly evi- 
dent. The third level seems to win a majority of the 
time — but not a large majority, by any means. Another 
interesting change in this level's strategy is that, for 
the first part of the game, it doesn't try to capture the 
most pieces, but the least! This may seem backwards, 
but usually plays well. See if you can figure out why. 

Here's a quick summary of each function and procedure 
in the program. 

SET CHIP: Places a piece of the current color into 

the board array at XC.YC. 

TEST SQR: Returns the value of the square XC.YC 

in the board array. 

PLACE CHIP: Places a piece of the current color 

into the board array at XC.YC and draws it on the 
screen board. 

PSCORE: Switches inverse lettering to the current 
player color and prints the score. 

GET LEVEL: Inputs strategy level. 

INITIALIZE: Sets up screen and array board, gets 
mode and levels, sets initial score and prints it. 

FLIPPER: If FLIP_FLAG = 0, then count the num- 
ber of chips captured by the move XC,YC. If FLIP 



FLAG=1, then actually capture the chips for the move 
XC.YC. 

UPDATE VALUES: If a move is made to a corner, 

then make the squares adjacent to the move valuable. 
COMPUTER: Get a computer move. 
PLAYER: Get a human player move. 

MAKE MOVE: As the name implies. . . 

MAIN: The primary game loop, with end-of-game 
checking. 

I hope that some of you will look at the code, figure out 
how the strategies work and try to come up with stronger 
ones. It really is fun to program a strategy, then pit it 
against one of the other strategies. If you come up with 
a really good one, or you have any questions or comments, 
please write to Reader Comment in the pages of ANALOG 
Computing. 

Good luck. Hope your life is filled with lots of Action! 

Paul T. Sprague has his bachelor of science degree in 
Electrical Engineering and works as an Associate Engineer 
of Design and Development for Raytheon. He's had his 
Atari 800 for seven years and Action! for two and one-half. 
They make a great pair.' 

Listing 1. 
Action! listing. 

REVERSI in fiction! 
Written by Paul T. 5prague 

CHECKSUM DATA 

[A8 08 F6 7E 6B 8B CA 8A 

6D 02 ID FO F3 49 A6 9A 

CI El E3 44 2fl 99 F5 SO 

30 D8 B3 E9 B9 83 64 6D 

97 61 DA 34 AD OE 84 5B 

DA 61 EB ] 

BYTE WHITE-SCORE, BLACK-SCORE, 

KEY=$2FC,CURS0R=$2F0,ATTRACT=77, 
PRO-COLOR, 0PP-C0L0R, 
M0VEK,M0VEY, MOVE, JOYX, JOY Y 

BYTE ARRAY FRESH-BOARD C128J = 
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6 
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15 
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6 





15 
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6 





15 
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2 
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1 
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2 
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2 
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6 
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1 


1 


1 








15 





6 


6 


6 


6 





15 



VALUE-BOARD C128) , 

BOARD C6 4) , WB C2) , LEV EL C23 , 

wHITE=■■c^IIiG ,, , BLACK^-QHiiaa" 

PROC SET-CHIPCBYTE XC,YC) 

BOARD £XC+YC*8) =PR0_C0L0R 
RETURN 
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BYTE FUNC TEST-SGR CBYTE XC,YC) 
RETURN CB0ARDCXC+YC«8) J 

PROC PLACE-CHIP CBYTE XC,YC) 
5ET_CHIPCXC,YC) 
XC=CXC+2)*4+17 YC=CYC+1)*4 
COLOR=PRO_COLOR+l 

PLOTCXC,YC) DRAWT0CXC+2,YC) 

DRAWT0CXC+2,YC+2) DRAWTO CXC, YC+2) 
PLOTCXC,YC+l) PLOTCXC+l,YC+i) 

RETURN 

PROC PSCOREC) 
PRINTf'tt") 

IF PRO_COLOR=l THEN , 

PRINTC" BUHB "J 

PRINTEC'BLACK") 
ELSE 

PRINTC" WHITE ") 

PRINTEC"[iTJGHa"3 
FI 
PRINTFC" y.B KB Y.E' 

, WHITE-SCORE, BLACK-SCORE) 
RETURN 

PROC GET-LEVEL C CHAR ARRAY 

C0L0R-5TR , BYTE TEMPI J 
BYTE CHOICE 
DO 

PRINT CYPRESS NUMBER TO SELECT") 

PRINTFC" Y.S LEVEL :KE",COLOR_STR) 
PRINTEC" 1 - GOOD") 
PRINTEC" \ - BETTER") 
PRINT C" S - BEST") 
CH0ICE=GETDC7) 

UNTIL CCHOICE>$30)ANDCCHOICE<$34) 
OD 

LEVEL CTEMPl)=CH0ICE-$30 
RETURN 

PROC INITIALIZE C) 
CHAR TEMP 
BYTE I, J, CHOICE 
J0YX=38 J0YY=17 KEY=255 
CL0SEC7) OPENC7,"K: M ,4,0) 
GRAPHICSC5) SETC0L0RC4,12,5) 
SETC0L0RC2,0,0) SETCOLOR CI, 0, 12) 
SETC0L0RC0,0,8) 
FOR 1=0 TO 63 DO 

BOARD CI) =0 
OD 
FOR 1=0 TO 127 DO 

VALUE-BOARD CI) =FRESH_BOARD CI) 
OD 

C0L0R=1 
FOR 1=24 TO 56 STEP 4 DO 

PL0TCI,3) DRAWT0CI,35) 

PL0TC25,I-21) DRAWTO C55,I-21) 
OD 
PR0_C0L0R=1 

PLACE_CHIPC3,3) PLACE-CHIP C4, 4) 
PR0_C0LOR=2 

PLACE-CHIP C3, 4) PLACE-CHIP C4, 3) 
DO 

PRINTE CYPRESS NUMBER TO SELECT:") 

PRINTC" Q - CoMputer vs. ") 

PRINTEC'CoMputer") 

PRINTC" - Hunan 

PRINTEC'CoMputer") 

PRINT C" B - Hunan 

PRINT C'HUMan ") 

CH0ICE=GETDC7) 
UNTIL CCH0ICE>$30)ANDCCH0ICE<$34) OD 
IF CH0ICE=$31 THEN 

WBC0>=2 WBC1)=2 

GET-LEVEL C WHITE , ) 

GET_LEVEL C BLACK , 1 ) 
ELSEIF CH0ICE=$33 THEN 

WBC0)=O WBC1)=1 



vs . 



vs, 



ELSE 
DO 

PRINTC* WHICH COLOR DO YOU") 
PRINTC" WANT EW/BJ ?") 
TEMP=GETDC7) 
UNTIL CTEMP='W)ORCTEMP='B) OD 
IF TEMP='W THEN 
WBCO)=0 WBC1)=2 
GET-LEVEL C BLACK , 1 ) 
ELSE 
WBC0)=2 WBC1)=0 
GET-LEVEL C WHITE , ) 
FI 
FI 

PRINTC"*") CURSORzl 
WHITE_SC0RE=2 BLACK_SC0RE=2 
PR0_C0L0R=1 0PP_C0L0R=2 
PSCOREC) 
RETURN 

BYTE FUNC FLIPPERCBYTE XC,YC, 
FLIP-FLAG) 
BYTE TMPX,TMPY, FLIPS, COUNT, FLAG, TEMP 
INT I, J 
FLIPS=0 
IF TEST-SGR CXC, YC)=0 THEN 

FOR J=-l TO 1 DO FOR I=~l TO 1 DO 
IF CI«0)ORCJttO) THEN 
TMPX=XC TMPY=YC 
COUNT=0 FLAG=0 
DO 

TMPX — + 1 TMPY — + J 
IF CTMPX<8)ANDCTMPY<8) THEN 
TEMP=TEST_5QR CTMPX, TMPY) 
IF TEMP=0 THEN 
FLAG=2 
ELSEIF TEMP=OPP_COLOR 
THEN 

C0UNT==+1 
ELSE 
FLAG=1 
FI 
ELSE FLAG=2 
FI 
UNTIL FLAGttO OD 
IF FLAG=1 THEN 
FLIPS==+COUNT 
IF FLIP_FLAG=1 THEN 
TMPX=XC TMPY=YC 
FLAG=0 
DO 

TMPX==+I TMPY~ +J 
TEMP = TEST_SQR CTMPX, TMPY) 
IF TEMP=OPP_COLOR THEN 
PLACE-CHIP CTMPX . TMPY) 
ELSE 
FLAG=1 
FI 
UNTIL FLAGttO OD 
FI 
FI 
FI 
OD OD 
FI 
RETURN CFLIPS) 



PROC UPD 

IF CMO 

VALU 

UALU 

VALU 

ELSEI 
VALU 
VALU 
VALU 

ELSEI 
VALU 
VALU 



ATE-VAL 
VEXXMOV 
E-BOARD 
E-BOARD 
E-BOARD 
F CMOVE 
E-BOARD 
E-BOARD 
E-BOARD 
F CMOVE 
E-BOARD 
E_BOARD 



UESC) 

EY)=0 

CCPRO- 

CCPRO- 

CCPRO- 

X=0) AN 

CCPRO- 

CCPRO- 

CCPRO- 

X=7) AN 

CCPRO- 

CCPRO- 



THEN 

COLOR-1) 

COLOR-1) 

COLOR-1) 

DCMOVEY= 

COLOR-1) 

COLOR-1) 

COLOR-1) 

DCMOVEY= 

COLOR-1) 

COLOR-1) 



*64+l)=8 

#64+8) =8 

*64+9)=8 

7) THEN 

*64+48)=8 

*64+49)=8 

*64+57)=8 

O) THEN 

*64+6)=8 

*64+14)=8 
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VALUE-BOARD ( CPR0_C0L0R-.1)*64+15) =8 
ELSEIF tM0VEX=7)ANDCM0VEY=7) THEN 
VALUE-BOARD t IPR0_C0L0R-I)*64+54) =8 
VALUE-BOARD CCPR0_C0L0R-J.)*64 + 55) =8 
VALUE-BOARD CCPR0_C0L0R-JL)*64 + 62) =8 
FI 
RETURN 

PROC COMPUTER CJ 

BYTE BEST, SCORE, COUNT, XC,YC, TEMP 
BYTE ARRAY CH0ICEXC19) 
BYTE ARRAY CHOICEY C19) 
BE5T=0 COUNT=0 

FOR YC = TO 7 DO FOR XC=0 TO 7 DO 
SCORE = FLIPPER CXC, YC, 01 
IF SCORE>0 THEN 

IF LEVELCPR0_C0L0R-i)=2 THEN 
SCORE — + VALUE-BOARD { 

IPR0_C0L0R-1)*64+YC*8+XC) 
ELSEIF LEVELCPR0_C0L0R-i)=3 
THEN 
IF WHITE_SCORE+BLACK_SCORE<30 
THEN 
SC0RE=t25-5C0REJ/3+ 

VALUE-BOARD t CPRO-COLOR- 
1)*64+YC*8+XC) 
ELSE 
5C0RE==+VALUE_B0ARD { 

CPR0_C0L0R-.L)*64 + YC*8 + XC) 
FI 

IF VALUE-BOARD C CPRO-COLOR-J.J* 
64+8*YC+XC)=0 THEM 
SC0RE=1 
FI 
FI 

IF SC0RE=BE5T THEN 
CHOICEXCCOUNT)=XC 
CHOICEYtCOUNT)=YC 
COUNT==+i 
ELSEIF SCORE>BEST THEM 
COUNT=i 
CHOICEXCO)=XC 
CHOICEYC0)=YC 
BEST=5C0RE 
FI 
FI 
OD OD 
IF BE5T=0 THEN 

M0VEX=8 M0VEY=8 
ELSE 
TEMP=RANDCCOUNT) 
MOVEX=CHOICEXCTEMP) 
J0YX=CM0VEX+2)*4+18 
MOVEY=CHOICEY CTEMP) 
JOYY = CM0VEY+1)*4+1 
IF LEVELtPR0_COLOR-l)=3 THEN 

UPDATE-VALUES C) 
FI 
FI 
RETURN 

PROC PLAYER CBYTE STICK-NUM) 
BYTE TEMP,SX,SY,FLAG,R,I, J 
KEY=255 TEMP=LOCATEtJOYX, JOYY) 
IF TEMP=0 THEN 

C0L0R=1 
ELSE 

C0L0R=5~TEMP 
FI 

PLOTCJOYX, JOYY) 
DO 

R=STICK CSTICK-NUM) 

IF CR&$8)=0 THEN J0YX==+4 

IF CR&$4)=0 THEM 

IF CR&$2)=0 THEN 

IF CR&$1)=0 THEN 

IF R«15 THEN 

IF J0YX<26 THEN J0YX=54 



5X=J0YX SY=JOYY 



ELSEIF J0YX>54 THEN J0YX=26 
FI 
IF J0YY<5 THEN J0YY=33 

ELSEIF J0YY>33 THEN J0YY=5 
FI 

P05ITI0NCSX,SY) PUTDC6,TEMP) 
SX=JOYX SY=JOYY 
TEMP = LOCATE (JOYX, JOYY) 
IF TEMP=0 THEM 
COLOR=i 
ELSE 
C0L0R=5-TEMP 
FI 

PLOT tJOYX, JOYYJ 
50UNDC0, 200,10, 8J 
FOR I=0 TO 200 DO FOR J=0 TO 10 

DO OD OD 
SNDRSTIJ 

FOR 1=0 TO 200 DO FOR J=0 TO 50 
DO OD OD 
FI 

FLAG=0 

IF STRIG CSTICK-NUM) =0 THEN 
M0VEX= C J0YX-18) /4-2 
MOVEY= C JOYY-l) /4~1 
IF FLIPPER(MOVEX,MOVEY,03>0 THEN 

FLAG=1 
FI 
FI 

IF KEY=IO THEN 
FLAG=2 

FOR 1=0 TO 7 DO FOR J=0 TO 7 DO 
IF FLIPPERII,J,0)>O THEN 
FLAG=0 
1=7 J=7 
FI 
OD OD 
KEY=255 
M0VEX=8 
M0VEY=8 
FI 
UNTIL CFLAGttO) OD 
POSITION(SX,SY) PUTD(6,TEMP) 
KEY=255 
RETURN 



PROC MAKE 
BYTE NF 
CARD I 
HF=FLIP 
IF PRO- 
WHITE 
BLACK 
ELSE 
BLACK 
WHITE 
FI 

NF=FLIP 
PLACE-C 
SOUND (0 
FOR 1=0 
SOUND (0 
ATTRACT 
RETURN 



-MOVE CBYTE XC,YC) 



PERtXC,YC,0) 
C0L0R=1 THEM 
_SCORE==+NF+i 
_SCORE==-NF 

_5C0RE==+NF+1 
_SCORE==-NF 

PERCXC,YC,1J 
HIPCXC,YC) 
,80,10,8) 
TO 8O0 DO OD 

,0,0,0) 

= 



J0YX==-4 
J0YY==+4 
J0YY==-4 



FI 
FI 
FI 

FI 



PROC MAINC) 
BYTE PASS 
CHAR TEMP 
DO 

INITIALIZE t) 

PSCOREC) 

DO 

IF WBCPR0_C0L0R-1)=2 THEM 
COMPUTER C) 
ELSE 
PLAYER CWB (PRO-COLOR-l) ) 
FI 
IF M0VEX=8 THEN 



46 ANALOG COMPUTING 



ATARI 8-BIT EXTRA 



PASS — + 1 
ELSE 
PASS=0 

MAKE_MOVE CMOVEX, MOVEY) 
FI 

PRO_COLOR=OPP_COLOR 
OPP_C0LOR=3-0PP_C0LOR 
PSCOREC) 
UNTIL CWHITE_SC0RE+BLACK_SC0RE=64) 

0RCPASS=2) OD 
PRINTEt" "J 

IF HHITE_SCORE>BLACK_SCORE THEN 
PRINTC'White wins!...") 
ELSEIF BLACK_SCORE>WHITE_SCORE 
THEN 
PRINTC'Black Wins!..."] 
ELSE 
PRINTC'Tie! . . .") 
FI 

PRINTC'play again?") 
TEMP=GETDC7) 
UNTIL TEMP='N OD 
RETURN 
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Back Issues 




All back 
issues 
are priced 
at $4.00 each. 



Send your check or money order to 
ANALOG Computing Back Issues, 

P.O. Box 625, Holmes, PA 19043. 
MasterCard and VISA orders, 
call 1-800-345-8112 
(in Pennsylvania, 1-800-662-2444). 




Arm your Atari • Blast! 



Back issues on 5V4-inch disk 

$12.95 each, plus $3.00 shipping and handling. 
Issues 35 and up are available in this format. 



ISSUE 30 • Loan Shark • Z-Plotter • BASIC Burger • ANALOG TCS Guide 

• Boulder Bombers 

ISSUE 31 • Unicheck • R.O.T.O. • Lunar Patrol • ATASCII Animation • Lazer Type 

• Atari Clock • Personal Planning Calendar 

ISSUE 32 • Supereversion • DOS III to DOS 2 conversion • Color the Shapes 

• Home-made Translator • Cosmic Defender • 520ST 

ISSUE 33 • An Intro to MIDI . Note Master • Syntron • BASIC Bug Exterminator 

• Assemble Some Sound • C.COM • Mince {ST) 

ISSUE 34 • Dragon's Breath • Multiple Choice Vocabulary Quiz • Elevator Repairman 

• Assemble Some Sound Part 2 

ISSUE 35 (also on disk) • Hide and Seek • Printers Revisited • Bonk • Turtle 1020 • G: 

ISSUE 36 (also on disk) • Sneak Attack • Maze War • Nightshade • Solid Gold 
Input Routine • Rafferty Run 

ISSUE 37 (also on disk) • Speedski • Index to ANALOG Computing (15-36) • Master 
Disk Directory • Halley Hunter • Bank Switching for the 130XE 

ISSUE 38 (also on disk) • Color Alignment Generator • Incoming! • DLI Maker • Air 
Hockey • ST Color Palette 

ISSUE 39 (also on disk) • Super Pong • Unicheck (updated) • C-Manship Part 1 

• Program Helper • Adventurous Programming Part 1 • ST Software Guide 

ISSUE 40 (also on disk) • Clash of Kings • Micro-Mail • Koala Slideshow Program 

• Adventurous Programming Part 2 • Mouser 

ISSUE 44 • RAMcopy! • The 8-Bit Parallel Interface 

• D:CHECK in Action! • ST-Log 4 

ISSUE 45 • Stencil Graphics • Roll 'Em! • RAM DOS XL • LBASIC 

• Using BASIC XL's Hidden Memory • ST-Log 5 

ISSUE 46 • Magic Spell •Moonlord • Soft Touch «La Machine • June CES 

• Launch Code • ST-Log 6 

ISSUE 47 • DLIs: A minute to learn • Deathzone • BASIC Editor II • 

• The ANALOG Database • DiskFile • ST-Log 7 

ISSUE 48 • M-Windows • Cosmic Glob • DLIs - Part 2 • Modem Chess 

• Status Report • ST-Log 8 

ISSUE 49 • The Atari 8-bit Gift Guide • Brickworks • TechPop 

• Fortune-Wheel • Smiles and other facial wrinkles • ST-Log 9 

ISSUE 50 • Krazy Katerpillars • Atari Picture Storage Techniques • Trails in Action! 

• Scroll-It • Screen Scroller 

Issues 12, 14, 15. 16. 17. 18, 19, 20. 21 and 22 are also still available 
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GAME 



^S? 




by Paul Tupaczewski 



In the game of Lawn Mower, you're Tommy, a boy hired 
to mow lawns all around the town of Atariville. Since you 
have signed contracts with the people you're going to mow 
for, you can't escape the dangers that crop up while trim- 
ming the greens. 

The object of Lawn Mower is to clear the screen of grass. 
Whenever you go over a strip of grass, it turns darker to 
show it's been cut. There are also trees impeding your way. 
If you hit a tree, you'll bounce back. 

On board 1, the Joneses' house, you must avoid Hi- 
Leggers. These creatures move from side to side, while ran- 
domly bouncing up and down. If they hit you, you lose 
one of your three lives. When you've lost all of your lives, 
the game ends. 

On board 2, Cursor Park, holes suddenly appear! These 
are made by gophers who are afraid to show themselves. 
If you fall into one of the holes, you lose a life. 

Board 3, the golf course, introduces the Mad Planter. 
He's a little orange man who plants grass where you've 
already mowed. The only way to get rid of him is either 
to run him over, or to plant a land mine — and make him 
run into it. This will make him disappear. . . for a while. 

To plant a land mine, you simply press your joystick but- 
ton. An explosive which you've buried in the ground will 
look just like a piece of mowed lawn. The number of land 
mines is shown at the bottom of the screen. You get an 
extra mine every time you clear a board, with a maximum 
of five. If you run into a mine, you won't be killed, but 



you will destroy the charge, rendering that mine useless 
against the enemy. 

In the final board, John's orchard, the Mad Planter reap- 
pears. And there's also a new problem. The orchard is 
separated into two parts by a superhighway. You must get 
across this road to travel from one side of the orchard to 
the other. 

If you run into a car while crossing, you'll lose a life. 
Also, you can't plant land mines on the road. If you mow 
all of this board, you'll go back to board 1, but at a harder 
level. 

Scoring is as follows: mowing a piece of lawn=250 
points; making the Mad Planter run into a land mine =250 
points; running over the Mad Planter=500 points; and 
mowing all of a board=500 points times the level at which 
you played. 

Your score is shown in the upper left on the screen. The 
level is in the upper right, and your number of lives re- 
maining is shown by the number of circles next to the level 
number. The number of mines can be seen at the bottom 
of the screen. 

I used Tom Hudson's excellent player mover subroutine 
from issue 10 and found it very easy and fast. I hope you 
have as much fun with Lawn Mower as I did. H 

Paul Tupaczewski attends school in Boonton, New Jer- 
sey. He's had his Atari 400 for three years, with an Indus 
disk drive and an Epson RX-80 printer, which he received 
as a Christmas present. 

(Listing starts on next pagej 
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The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 



Listing 1. 
BASIC listing. 

||p REM XXXXXXXXXXXXXXXXXXXXXXX 

QP 1 REM * Lawn Mower * 
5Y 2 REM * by Paul Tupaczewski * 
FG 3 REM * ANALOG Computing * 
NN 4 REM xxxxxxxxxxxxxxxxxxxxxxx 

5 DIM L0C(5) 
NL 7 KO::0:Kl = l:K2=Kl + Ki:K3 = K2 + Kl:K4 = K2 + K2 

:K5=K2+K3:K6=K3+K3!K7=K4+K3:K8=K4+K4 
f-'ft 10 GOSUB 815:G05UB 728:G0SUB 875 
HR 15 LIU=K3:SC=K0:LEU=Kl:LEU2=Kl:MIN=K5: 

HARD=K9 
CV 20 GRAPHICS K3KK6 : DL=PEEK (560) +PEEK (56 

1)*256+K4:P0KE DL-K1, 70 : POKE DL+12,6:P 

OKE DL+K2,6:P0KE 709,216:P0KE 623, Kl 
ZT 25 PMBASE=INT((PEEK(145)+K3)/K4)*K4:P0 

KE 54279, PMBA5E : PMB=PMBA5E*256 : POKE 55 
;19,46:P0KE 53277, K3:P0KE 756, ST/256 

30 POKE 708,194 
EE 35 POKE 704,148:MIN=MIN+K1:IF MIH>K5 T 

HEN MIN=K5 
HC 40 POKE 705,252:P0KE 706,160:P0KE 707, 

54 

GH 45 POSITION Kl,KO:? tt6 ; "33333"; CHRS (15 

4) J5C:P05ITI0N 13,K0:F0R R = K1 TO LIU:? 
tt6jCHR$(138) ; :NEXT R 
SK 50 POSITIO N 17,K Bi? tt6; LEV : POSITION K6 

,ll:? »6;"SHirMH";MlN 
MN 55 FOR R=K2 TO K3*K3: COLOR K3 : PLOT K2, 

R:DRAWT0 17,R!NEKT R 
JA 60 POSITION K5*K2,K5:? tt6; "«" : GRA=K0 
AD 65 ON LEU2 GOSUB 430,458,475,500 

67 GOSUB 910 
KK 70 X = 128:Y = K3*K8*K2:Xi = K5 + K5:Yi = K5:M::K 

1 : TMWT^KO : X3=K5+K5 : Y3=K2 : MY3=K3*K8 : MX3 

= 128 
OY 75 A=USRCMOUE,K0,PMB,ADR(M$(MKK8-K7,M* 

K8)),X,Y,K8) 

88 0X=X:0Y=Y:0X1=X1:0Y1=Y1 
GU 85 POKE 53278, Kl 

WN 90 ON LEV2 GOSUB 195,285,240,258 
Y5 95 IF PEEK (764) <>33 THEN 115 
WH 100 POKE 764,255 
ID 105 IF PEEK(764)<>33 THEN 185 
HJ 110 POKE 764,255 
HD 115 IF STRIG(0)=K0 AND MIN>K0 AND LEU2 

>K2 AND LEU2<K5 THEN GOSUB 565 
UC 120 S=5TICK(K0) :XAD=(5=K7)-(S=li) :YAD= 

(S=13)-(S=14) 
PU 125 X=X+XAD*K8:Y=Y+YAD*K8:X1=X1+XAD:Y1 

=Y1+YAD 
MF 130 IF XAD=-K1 THEN M=K2 
OD 135 IF XADrKl THEN M=K1 
MM 140 IF YAD=-K1 THEN M=K3 
RE 145 IF YAD=K1 THEN M=K4 
10 158 IF X1<K2 OR Xl>17 OR Y1<K2 OR Yl>9 

THEN Xl=0Xl:Yl=OYl:X=0X:Y=0Y 
YA 155 LOCATE X1,Y1,L0C 
GJ 160 IF 0X1OX1 OR OYiOYl THEN IF L0C = 

K3 THEN POSITION Xl,Yli? tt6 J "tt" : SC=SC+ 

10:G0SUB 585:GRA=GRA+K1 
GU 165 IF 0X1OX1 OR OYiOYl THEN IF L0C = 

36 THEN POSITION XI, Yl:? tt6j "tt" : GOSUB 

588 
HT 170 IF 0X1OX1 OR OYiOYl THEN IF L0C = 

K7 THEN X1=0X1:Y1=0Y1:X=0X:Y=0Y:G05UB 

575 



JZ 175 IF GRA=GRS THEN 685 

UM 188 IF L0C=32 AND LEU2<>K4 THEN 525 

US 185 GOTO 75 

TB 195 GOSUB 310 

YY 200 RETURN 

RA 205 TMWT = TMHT+Kl:IF TMWT=25 AND HARDO 

Kl THEN 228 
HN 218 IF TMWT=18 AND HARD=K1 THEN 228 
ZP 215 RETURN 
V5 228 TMHT=K8:R=INT(RND(0)*14)+K3: T=INT( 

RND(0)*K5)+K3:L0CATE R,T,Z:G0SUB 930:1 

F FG = 1 THEN 220 
PO 225 IF Z = 32 THEN 220 
XF 230 IF Z = K3 THEN GRS=GRS-K1 
5P 235 POSITION R,T:? tt6; SOUND K8,K0, 

K8,K6!F0R R = Ki TO KSiNEXT R:50UND KO,K 

K8 K8:RETURN 
DG 240 TMWT=TMWT+Kl:IF TMWT>55 THEN GOSUB 

398 
ZU> 245 RETURN 
OJ 258 A=U5R(M0UE,K1,PMB,ADR(CLS),CX1,56, 

K8) :A=USR(M0UE,K2,PMB J ADR(CR$) ,CX2,78, 

K8) 
YK 255 CX1=CX1-K4-HARD*K4!IF CX1<65 THEN 

CX1=184 
HZ 268 CX2=CX2+K6+HARD*K4:IF CX2>184 THEN 

CX2=65 
SM 265 IF PEEK(53260)=K2 OR PEEK (53260) =K 

4 THEN 280 
ZH 270 TMWT=TMWT+Kl:IF TMWT>68 THEN GOSUB 

390 
AB 275 RETURN 
MY 280 FOR R=15 TO KO STEP -8. 2: POKE 784, 

R:S0UND K0,1O8,K0,R:NEXT R 
CC 285 FOR R = K1 TO 100:NEXT R 
VW 290 POSITION 12+LIV,K8:? tt6; M ":LIV=LI 

u-Kl 
MX 295 FOR R = 15 TO KO STEP -KliSOUND K0,1 

21,10,R:NEXT R 
NG 3O0 IF LIV=K0 THEN 595 
YA 305 FOR R = Ki TO 100:NEXT R : CX1=120 : CX2 

=65:P0KE 704,148:G0T0 70 
HV 310 A=USR(M0UE,K1,PMB,ADR(GT$) ,MX1,MY1 

, K8) : A = USR (MOVE, K2, PMB, ADR (GTS) , MX2, MY 

2, K8) : 0MY1=MY1 : 0MY2=MY2 
HD 315 MX1=MX1+K4+HARD»K4:IF MX1>184 THEN 

MXi=64 
EO 320 MX2=MX2-K4-HARD*K4:IF MX2<64 THEN 

MX2=184 
QR 325 ADD=INT(RND(0)*K3)-K1:ADD=ADD*(K3+ 

HARD) :MY1=MY1+ADD:IF MY1<24 THEN MY1 = 2 

4 
HM 330 IF MY1>80 THEN MY1=80 
ZT 335 ADD=INT(RND(0)*K3)-K1:ADD=ADD*(K3+ 

HARD) :MY2=MY2+ADD:IF MY2<24 THEN MY2 = 2 

4 
IU 340 IF MY2>80 THEN MY2=80 
XY 345 IF PEEK(53260)=K2 OR PEEK (53260) =K 

4 THEN 355 
ZJ 350 RETURN 
TO 355 FOR R=15 TO KO STEP -0.2:50UND KO, 

100,K0,R:P0KE 704,R:NEXT R 
PK 360 FOR R=Ki TO 108:NEXT R 
MG 365 POSITION 12+LIV,K0:? tt6;" " : LIV=LI 

V-Kl 
FM 370 FOR R=I5 TO KO STEP -1:S0UND K0,12 

1,10,R:NEXT R 
OJ 375 IF LIU=KO THEN 595 
KK 380 FOR R = Ki TO 100:NEXT R:POKE 704,14 

8:G0SUB 680:POKE 53278, Kl 
IJ 385 MX1=64:MX2=184:MY1=48:MY2=48:G0T0 

70 
HL 398 A=USR(M0VE,K3,PMB,ADR(PL$) ,MX3,MY3 

,K8) :0X3=X3:0MX3=MX3: LOCATE X3,Y3,ZZ 
LR 395 IF ZZ=36 THEN SC=SC+250 : GOSUB 590: 

GOTO 425 
EP 400 IF ZZ=35 THEN POSITION X3,Y3:? «6; 
CHR$(K3) :GRA=GRA-K1 
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ML 405 Y3=Y3+K1:MY3=MY3+K8:IF MY3>80 THEN 
TMHT=K0:A=USRCMOVE,3,PMB, ADRC"*"> ,0,0 

, 1) :X3=10:Y3=K2:MX3=i28:MY3=24: RETURN 
BD 410 ADD=INTtRNDC0)*K3)-Kl:X3=X3+ADD:MX 

3=MH3+ADD*K8:IF X3<K2 OR X3>17 THEN X3 

=0X3:MX3=0MX3 
JQ 415 IF PEEKt53260)=K8 THEN 5C=SC+5G0:G 

05UB 590-.FOR R = 15 TO KO STEP -K3:S0UND 
K0,200,10,R:NEXT R : MY3=9Q : GOTO 405 
ZE 420 RETURN 
SO. 425 POSITION X3,Y3:? 86;"8":F0R R = 15 T 

KO STEP -1.5:50UND KO, 200, K8, R : NEXT 

R:MY3=90:G0T0 405 
MH 430 GRS-115: COLOR K7:PL0T K3,K3:PL0T K 

3,K4:PL0T K4,K3:PL0T K3,K8:PL0T K3,K7: 

PLOT K4,K8:MXl=64:MX2rl84 
FV 435 PLOT 15,K3:PL0T 16,K3:PL0T 16,K4:P 

LOT 15,K8:PL0T 16,K8:PL0T 16,K7:MY1=48 

:MY2=48 

OG 440 POSITION K4,Kl:? 86; " HJEEEMIIillEE '' 

ZX 445 RETURN 

XY 450 GRS=109: COLOR K7 

KI 455 PLOT K3,K8:DRAMT0 K8,K3:PL0T 11, K3 

:DRAHTO 16, K8 
TR 460 PLOT K8,K8:PL0T 9,K7:PL0T 10,K7:PL 

OT il,K8:PL0T K3,K3:PL0T 16, K3 
HV 465 POSITION K5,Kl:? »6 : " [Hil:MH:M J;1:i:< " 
ZQ 470 RETURN _____„„ 

SA 475 POSITION K5,Ki:? 86 ; " HJUMJIlIIEHIl " : 

X3=10:Y3rK2:MY3=24:MX3=128: COLOR K7 
RV 480 FOR R = K1 TO 15 
SO 485 A=INTIRNDC0)*16)+K2:B=INTCRNDCO)*K 

7)+K2:L0CATE A,B,C:G05UB 920 : IF FG=I T 

HEN 485 
AF 490 IF C=K7 OR (A=10 AND B = K5J THEN 48 
■:-,- 5 

5C 495 PLOT A, B: NEXT R : GRS=1 12 j RETURN 
RY 500 POSITION K3,Ki:? 86 ; " WIHil.TA-MHHHiM:! 

H" 

CE 505 COLOR K7:F0R R = K3 TO 17 STEP 2: FOR 

T=K3 TO 9 STEP K2 : PLOT R,T 
GG 510 NEXT T:NEXT R : GRS=55 : CX1=120 : CX2=6 

5 
BL 515 COLOR 32 : PLOT K2,K8:DRAWT0 17,K8:P 

LOT K2,K6!DRAHT0 17,K6:C0L0R 45:PL0T K 

2,K7:DRAWT0 17, K7 
ZF 520 RETURN 
TE 525 A=USRCM0VE,K0,PMB,ADRCM$CK1,K8JJ,X 

V V. R 1 

m 530 FOR R = 15 TO KO STEP -O.USOUND KO, 

60-CR*K2),10,R:P0KE 704,R:NEXT R 
PV 535 FOR R = K1 TO 10O:NEXT R 
VP 540 POSITION 12+Liy,K0:? 86;" ":LIV=LI 

U-Kl 
MO 545 FOR R=15 TO KO STEP -KllSOUND K0,1 

21,10,R:NEXT R 
N5 550 IF LIV=KO THEN 595 
PX 555 FOR R=K1 TO 100:NEXT R:POKE 704,14 

8 
SA 560 GOTO 70 
IA 565 POSITION XI, Yl:? 86; "$" i MIN=MIN-K1 

:POSITION 12,11:? »6;MIN:F0R R = 15 TO K 

STEP -Kl 
SB 570 SOUND KO, 25, 10, R : NEXT R:RETURN 
EE 575 SOUND KO , 200, 8 , 6 : FOR R=K1 TO K3:NE 

XT RiSOUND K0,KO,K0,KO:RETURN 
OK 580 SOUND K0, 100, KO, 10 : FOR R = K1 TO K3: 

NEXT R:SOUND KO, KO, KO, KO : RETURN 
TV 585 FOR RrlO TO KO STEP ~2.5:S0UND KO, 

R,K8,R:NEXT R : SOUND KO,KO,K0,K0 
IK 590 POSITION K7,K0:? «6;SC:RETURN 
RV 595 GQ SUB 680:P0SITI0N K6,K5:? 86;"EEE 

3EEI33" 

XH 600 RESTORE 670 

YV 605 READ 0,P,DLY:IF = -Kl THEN 615 
JM 610 FOR R=15 TO KO STEP -DLY:SOUND KO, 
0,10,R:50UND K1,P,10,R:NEXT R:GOTO 605 
ON 615 FOR R = K1 TO lOOiNEXT R:? »6 J "IS" : PO 



sition K2,K3:? »6; "Pn!IS135iI3E"; CHR$ tl5 

4J ;sc 
PZ 620 POSITION K2,K5:? 86;"high score";C 

HR$C26) ;HS:FOR R = K1 TO 40O:NEXT R 
RV 625 IF SC<=HS THEN 655 
BE 630 FOR R=K1 TO K4:P0SITI0N K2,K3:? 86 

;"your_score"jCHR$C26) : POSITION K2,K5: 

? 86; ,, [JBnaHIia3";CHR$C154) 
MO 635 FOR T = 15 TO KO STEP -I.5-.S0UND KO, 

60,10,T: NEXT T:P05ITI0N K2,K3:? 86;"PE 

tnaBanE" J CHR$ C154 J 
MR 640 POSITION K2,K5:? 86;"high score";C 

HR$C26):F0R T=15 TO KO STEP -1.5:S0UND 
K0,121,10,T:NEXT T:NEXT R 
YF 645 FOR R = Ki TO 200 : NEXT R:F0R R=H5 TO 

SC STEP 50 
KG 650 POSITION 13, K5 : ? 86;R:P0KE 53279, K 

OlNEXT R:HS=SC:POSITION 13, K5:? 86;HS 
OZ 655 POSITION K5,K0:? 86; M PRES5 Start": 

POSITION K4,K1:? 86:"T0 PLAY AGAIN" 
IE 660 IF PEEKC53279J <>K6 THEN 660 
IW 665 LIU=K3:SC=K0:LEU=Kl:LEU2=Kl:MIN=K5 

:HARD=KG:? 86 ;"*": GOTO 30 
HB 670 DATA 121,96,1,96,81,1,108,91,1,91, 

72,1,96,81,1,72,60,1,72,60,5,81,64,5 
MR 675 DATA 91,72,5,96,81,5,108,91,5,121, 

96,1,-1,0,0 
SB 680 FOR R=KO TO K3 : A=USR CMOUE, R, PMB, AD 

RC"*") ,K0,K0,K1J :NEXT R:RETURN 
YO 685 RESTORE 715 

SJ 690 READ 0,P,DLY:IF 0=-Kl THEN 700 
MA 695 FOR R=15 TO KO 5TEP -DLY:S0UND KO, 

0,10,R:50UND K1,P,10,R:NEXT R:GOTO 690 
EJ 700 LEU2=LEV2+Kl:IF LEU2>K4 THEN LEV2 = 

Kl:HARD=Kl 
GV 705 SC=SC+500*LEV:LEV=LEV+K1 
DP 710 FOR R = KO TO K3 : A = U5R (MOVE, R, PMB, AD 

Rt"¥") ,K0,K0,K1) :NEXT R:GOTO 20 
HV 715 DATA 81,64,1,91,72,3,96,81,1,108,9 

1,3,121,96,1,60,47,1,-1,0,0 
FI 720 DIM PMMOVSCIOOJ : MOVE=ADR CPMMOVS) :R 

ESTORE 755 
PC 725 FOR X=K1 TO 100: READ N : PMMOU$ CX) =C 

HR$CN) :NEXT X 
MU 730 DIM M$C32J,PL$tK8),CL$CK8J,CR$CK8) 

,GT$CK8) 
OK 735 FOR R=K1 TO K8:READ D : CL$ CR) =CHR$ C 

D):NEXT R'.FOR R = K1 TO K8IREAD D:CR$CR) 

=CHR$(D) JNEXT R 
TO 740 FOR R = K1 TO K8:READ D : GT$ CR) =CHR$ ( 

DJlNEXT RiFOR R=K1 TO K8:READ D:PL$CR> 

— CHR$ CD! : NEXT R 
NS 745 FOR R=K1 TO 32:READ D : M$ f R) =CHR$ CD 

J :next r 

ZN 750 RETURH 

US 755 DATA 216,104,104,104,133,213,104,2 

4,105,2,133,206,104,133,205,104,133,20 

4,104,133,203,104,104,133,208 
IF 760 DATA 104, 104, 133, 209, 104, 104, 24, 10 

1,209,133,207,166,213,240,16,165,205,2 

4,105,128,133,205,165,206,105 
IZ 765 DATA 0,133,206,202,208,240,160,0,1 

62,0,196,209,144,19,196,207,176,15,132 

,212,138,168,177,203,164 
LE 770 DATA 212, 145, 205, 232, 169, O, 240, 4, 1 

69,0,145,205,200,192,128,208,224,166,2 

13,165,208,157,0,208,96 
QU 775 DATA 0,14,18,34,127,127,54,54 
KQ 780 DATA 0,112,72,68,254,254,108,108 
RN 785 DATA 28, 42, 54, 28, 20, 20, 20, 54 
UU 790 DATA 130, 68, 56, 84, 108, 56, 40, 108 
TS 795 DATA O, 96, 96, 240, 236, 226, 71, 98 
LO 800 DATA 0,6,6,15,55,71,226,70 
JT 80S DATA 64,224,80,16,8,190,254,56 
LA 810 DATA 28,127,125,16,8,10,7,2 
QZ 815 POKE 1O6,PEEKC106)-K5:GRAPHIC5 KO: 

ST=CPEEK (106) +K1J*256 SPOKE 756, ST/256: 

POKE 752, Kl 



ATARI 8-BIT EXTRA 



ANALOG COMPUTING 51 



*4^ Lawn Mower cont»iued 



HJ 828 RESTORE 940:DIM XFR$ C38) : FOR RrKl 

TO 38:READ D:XFR$(R,R)=CHR$CD) : NEXT R 
HP 825 Z=USRtADRCXFR$J> : RESTORE 845 
OC 830 POSITION 14,12:? "Initializing" 
RU 835 READ X:IF X=-K1 THEM RETURN 
OR 840 FOR Y = K0 TO K7 : READ Z:POKE X+Y+ST, 

ZiNEXT YiGOTO 835 
RD 845 DATA 24,255,255,255,255,255,255,25 

5,255 
OE 850 DATA 32,255,255,255,255,255,255,25 

5,255 
OW 855 DATA 56,255,199,163,21,65,171,199, 

255 
ES 860 DATA 40,0,24,24,24,0,0,0,0 
TZ 865 DATA 80,0,0,28,62,62,62,28,0 
GR 870 DATA -1 
OR 875 GRAPHICS 17 : DL=PEEK C560) +PEEK C561J 

*256+K4:P0KE DL-Ki,7i:P0KE DL+K2,K7:P0 

KE DL+K3,K7 
WG 880 COLOR 138:PL0T K4,K0:DRAMT0 15, KO: 

PLOT K4,K2:DRAWT0 15, K2 
10 885 POS ITION K4,Kl:? tt6; CHR$ £138) ; "tEE 

aCIiEI3a ,, ;CHR$(i38) 

PS 890 POSITION 9,12:? tt6j "BY" : POSITION K 

3,14:? »6;"PAUL TUPACZEMS KI" 
VY 895 POSITION K5,18:? «6 : " [-I-reia Start" 
EG 900 IF PEEKC53279JOK6 THEN 900 
ZU 905 RETURN 
EW 910 FOR I = K8 TO 12:L0CATE I,K5,Z:L0CCI 

-K7)=Z:NEXT I:POSITION K8,K5:? «6;"REA 

DY" 
50 915 FOR I=K1 TO 200SNEXT I:FOR I = K8 TO 
12:POSITI0N I,K5i? »6;CHRSCL0CCI-K7J) 

• NEXT I : RETURN 
SG 920 FG=0:FOR I=A-K1 TO A+Kl STEP K2:F0 

R J=B-K1 TO B+Kl STEP K2:L0CATE I,J,Z: 

IF Z=K7 THEN FG=1 
AW 925 NEXT J : NEXT I: RETURN 
KH 930 FG=0:FOR I=R-K1 TO R+Kl STEP K2:F0 

R J=T-K1 TO T+Kl STEP K2:L0CATE I,J,P: 

IF P=32 THEN FG=1 
AV 935 NEXT JiNEXT URETURN 
EB 940 DATA 104,169,0,133,203,133,205,169 

,224,133,206,165,106,24,105,1,133,204, 

160,0,177,205,145,203,200,208,249 
WX 945 DATA 230,204,230,206,165,206,201,2 

28,208,237,96 
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Trivia seems to be a "hot" item nowadays. There are 
board games on the market shelves and even some games 
on the more popular computers. 

With the program in Trivia, you can generate a ques- 
tion and four possible answers. Use the second listing as 
a sample of a game you may create. If you wish to create 
your own game, do so; the generator will assist you in set- 
ting up your trivia database. 

The uses are only limited by your imagination. You 
could reserve a disk each for sports, TV, movies, science, 
history, the Bible, etc.; the list can go on and on. 

Question-and-answer generator. 

The main menu contains four options: "create," "edit," 
"play" and "print." 

The create menu has four options: "continue," "edit," 
"print" and "menu." 

After typing in your question, four answers and the cor- 
rect number corresponding to the answer, press RETURN 
if you wish to continue entering. This will clear the screen, 
and you may enter a further trivia question with its an- 
swers. If you need to correct any of the data just entered, 
use the ARROW keys and page over to the edit option. 
Hit RETURN, and you may change any line. 

If you're finished and want to print what you have in 
the database, you need not go back to the main menu. Just 
page over to the print option and press RETURN. This will 



save all the data you've entered thus far, so you'll be able 
to view it. Paging over to the menu option and pressing 
RETURN will take you back to the main menu, after 
you've saved the database just entered. 

Our Trivia game is limited to 200 items. A count at the 
top of the screen indicates how many items you're enter- 
ing and how many remain. 

If you need to edit any item in your trivia database, use 
the second option from the main menu. 

You'll be allowed to enter the question as a search item, 
or, if you wish to step through the file, use the asterisk 
(*), and each item on the database will be displayed. 

The edit section has four options: "change," "delete," 
"next" and "menu." 

When the item in question appears on-screen, press RE- 
TURN if you want to change any line. This routine will 
allow you to alter a line as many times as you wish. When 
finished, press OPTION to return to the edit menu. If you 
used the asterisk option to step through your database and 
want to see additional items, use the ARROW key to page 
over to the "next" option. The next item on the database 
will appear on-screen. The delete option will allow you 
to remove a single item from the database if you typed 
in the question name as a search message. If you used the 
asterisk option, it will delete the item and await your next 
request. When you're finished, page over to the menu op- 
tion. All changes will be saved and you'll return to the 
main menu. 

If you have enough questions to run the Trivia game, 



ATARI 8-BIT EXTRA 



ANALOG COMPUTING 53 



^Ti 



FiVia continued 



use the play option. The screen will inform you that the 
game is loading. 

The print menu has four of its own options: "screen," 
"printer," "both" and "menu." 

Using the screen option allows you to view two com- 
plete items on your database at a time, with record num- 
bers. Press START to continue viewing. Press ESC to 
terminate the operation. When you've looked at the com- 
plete database, you'll be prompted to press SELECT to re- 
turn to the main menu. 

You also may send the database to a printer. Page over 
to the printer option and press RETURN. A hard copy of 
your database will be printed. If you wish to see the data- 
base on-screen as it's printing, use the "both" option. 

Paging over to the menu option will return you to the 
main menu . 

The Trivia game. 

When saving Listing 2, use the name DTRIV.BAS. The 
game question generator looks for this name when you use 
the play option from the main menu. 

The game program reads your database into an array 
with a limit of 200 items. When completed, the game will 
begin. 

Questions are selected through a random number al- 
gorithm beginning on Line 1110. The same questions and 
answers will not be used again in your session. When the 
questions are exhausted, a session will terminate, and 
you'll be asked if you wish to play again. Pressing START 
will allow the database to be loaded for another session. 
The program has some sounds built into it, but, because 
we want enough questions and answers loaded into the 
array, the program is much simplified. 

If you select an incorrect answer, a buzz will sound 
while the correct number flashes for a few seconds. If you 
choose the correct number, a nice "beep-beep" sound will 
play. At the end of each question and answer, you'll be 
asked to either press START to continue, or OPTION to 
finish. 

A timer at the top left will count down from 10 to 0. 
If you don't answer the question in 10 seconds, the buzz 
will sound and a wrong answer will result. If the correct 
answer is given, the remaining seconds are transfered to 
the right-hand score. The screen will clear, and the run- 
ning total of right and wrong responses will be printed 
at the top. The running total will always print at the end 
of each question/answer routine. 

When the OPTION key is pressed, results will be print- 
ed at the top of the screen, an appropriate message will 
be printed, and a few bars of "The Entertainer" will play. 
If your current score is higher than the high score, it will 
be transfered to the HI-SCORE area. This way, you may 
compete against another person — or against your previ- 
ous best score. You'll then be given the option to either 
end the session or play again. 

Use the question-and-answer generator to update your 
database. My family has played the game a number of 
times, and — just when they think they're getting good at 
it — I put some new questions in and take out some old 
ones. It keeps them on their toes. 



1 have a number of trivia databases I've developed, in- 
cluding sports, TV, movies, commercials and ads, and 
general trivia. Have a happy Trivia hunt. H 

Jan Iverson is an applications programmer with Chev- 
ron Corp. He's been working with computers for eighteen 
years and is program chairman for his local user's group 
(DACE). He lives in Antioch, California with his wife and 
three children. 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 



Listing 1. 
BASIC listing. 



HY 10 REM XMXXXMKKMMMXXKXXXXMXMMMMMXMMXM 
ZR 20 REM * * 

TQ 30 REM * GAME GENERATOR * 
5K 40 REM * by * 

M0. 50 REM * Jan Iverson * 

ZV 60 REM * * 

IE 70 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
BF 80 REM 
UK 90 KO=0:K1=1:K2=2:K3=3:K4=4:K5=5:K6=6: 

K7 = 7 : K8 = 8 : K9 = 9 : K10=10 : KIi=ll : K12=12 : Ki 

3=13:K14=14:K15=15 
MU 100 K16=16:K17=I7:K18=18:K19=19:K20=20 

:K21=2i:K22=22:K23=23:K24=24:K25=25:K2 

6=26:K28=28:K29=29:K30=30:K31=31 
FI 110 K7O8=7O8:K709=709:K710=710:K711=7i 

1 : K712=712 : K764=764 : K752=752 : K155=155 : 

K255=255:K54286=54286:K64=64:K1S2=192 
EL 120 K53761=53761:K45=45:K126=126:K5327 

9=53279 :K125=125:K132=132:K196=196 
QZ 130 K1729=1729:K173O=1730:K1731=1731:K 

1732=1732 : K1733=1733 : K152=152 : K132=132 

: K32=32 : K52=52 : K198=198 
RH 140 INIT=K0:COUNT=KO:PR=K0:MAX=2QQ:CNT 

=K0:RMAIN=K0 
DX 150 DIM ANC20) , Q C30J , AS C20) , CR C2) ,C$C2 

) ,Q5$C30) 
LL 160 DIM GUE5T$(30J , AN51SC20) , ANS2S C20) 

, ANS35C2Q) ,AN54$(20J , ITS CD , ARRSClll), 

FILE1$C15> , FILE2$tl5), Q$t30) 
VD 170 FILE1$=" " : FILE2$=" 

II 

NR 180 FILE1$="D1:GAME.DAT":FILE2$="D1:GA 

ME.TMP" 
BA 190 OPEN ttK4,K4,K0,"K:" 
DV 200 G05UB 4920:P0KE 39976, K6 : POKE 3997 

7,K11:P0KE K?52,K1:P0KE 53774, K64 : POKE 
112, K64 
YN 210 POSITION K7,K0:? "Use <E5C> to exi 

t prograM" 
PD 220 POKE 1729,4!F0R 1 = 1 TO 10-.NEXT I : P 

0KE 1730,4:F0R 1=1 TO 10 : NEXT I 
CH 230 POKE 1731,4:F0R 1=1 TO 10INEXT I:P 

0KE 1732,4 
X5 240 POKE 1733,132 
ME 250 POKE K708,218 
J5 260 POSITION Ki,K3:? "A TRIUIA QUIZ GA 

ME" 
AY 270 POSITION K13,K6:? "By Jan Iverson" 
ND 280 POSITION K10,K8:? "For Analog Coup 

uting" 

B0 290 POSITION K2,K10:? " 

■ ■ 

ZC 300 POSITION Kll,K14:? "Use the &«■ £* 
keys" 
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MI 310 POSITION K8,K16:? "to Make your se 

lection" 
5H 320 POSITION Kll,K18i? "then press [-TW1 

fTTTTI " 

XV 330 POSITION K1,K22:? " ■*! *!<=■ " 
OM 340 POSITION K11,K22:? " EDIT " 
GA 350 POSITION K21,K22:? " PLAY " 
KG 360 POSITION K31,K22:? " PRINT " 

KX 370 POKE K764,K255 

YI 380 POSITION K1,K22:? "BQMi" 

SK 390 IF PEEKCK764)=K6 THEN POSITION Kl, 

K22:? " CREATE ":G05UB 650:G0T0 580 
ES 400 IF PEEKCK764)=K7 THEN POSITION Kl, 

K22:? " CREATE ":G05UB 650:GOTO 440 
EO 410 IF PEEKCK764J=K28 THEN GRAPHICS 0: 

END 
RT 420 IF PEEKCK764)=K12 THEN 660 
GE 430 GOTO 390 

K5 440 POKE K764,K255 

TB 450 POSITION K11,K22:? "■jEinB" 

MP 460 IF PEEKCK764)=K6 THEN POSITION Kll 

,K22i? " EDIT ":G05UB 650 : GOTO 370 
CD 470 IF PEEKCK764)=K7 THEN POSITION Kll 

,K22:? " EDIT ":G05UB 650:G0T0 510 
FC 480 IF PEEKCK764)=K28 THEN GRAPHICS 0: 

END 
UM 490 IF PEEKCK764)=K12 THEN 1530 
PC 500 GOTO 460 

KN 510 POKE K764,K255 

KI 520 POSITION K21,K22:? "WKHESMM" 

MP 530 IF PEEKCK764)=K6 THEN POSITION K21 

,K22:? " PLAY ":G05UB 650:G0T0 440 
BL 540 IF PEEKCK764)=K7 THEN POSITION K21 

,K22:? " PLAY ":GOSUB 650:G0T0 580 
EX 550 IF PEEKCK764J=K28 THEN GRAPHICS O: 

END 
EI 560 IF PEEKCK764)=K12 THEN 4860 
OT 570 GOTO 530 

LB 580 POKE K764,K255 

PA 590 POSITION K31,K22:? "EHQm" 

GH 600 IF PEEKCK764J=K6 THEN POSITION K31 

,K22:? " PRINT ":GOSUB 650:G0T0 510 
SL 610 IF PEEKCK764)=K7 THEN POSITION K31 

,K22:? " PRINT "IGOSUB 650:G0T0 370 
E5 620 IF PEEKfK7643=K28 THEN GRAPHICS 0: 

END 
01 630 IF PEEKCK764)=K12 THEN 3100 
MR 640 GOTO 600 
VU 650 SOUND O,45,10,8:FOR I = K1 TO K3:NEX 

T IlSOUND Q,0,0,0:RETURN 
EN 660 POKE K1733,K4:? CHR$ CK125) 
MA 670 POKE K708,K152:P0SITI0N K6,K3:? "C 

REATE" 
AR 680 POSITION K2,K1:? "Max = ";MAX:P05I 

TION K15,K1:? "CurP = ":P05ITI0N K29,K 
III? "ReM = ":CNT = K0:RMAIN = K0 
KF 690 POKE K1733,196:CH=1 
ZH 70© POKE K54286,K64 
NI 710 POSITION K10,K10:? "Reading file.. 

II 

GO 720 CLOSE »K1: CLOSE «K2 

EH 730 TRAP 760 : OPEN »K1, K4, KO, FILElS : TRA 

P 4O0O0 
ZH 740 OPEN «K2,K8,K0,FILE2$ 
00 750 GOTO 800 

X5 760 CLOSE OKI: OPEN ttKl, K8, KO, FILElS 
EC 770 GUE5T$=' 

JO 780 ? BK1;GUE5T$:? ttKl;AN51$:? ttKl;AN5 

2$:? »Kl;ANS3$:? ttKl; ANS4S:? ttKi;IT$ 
JL 790 CLOSE 8KHG0T0 720 
MZ 800 INPUT OKI, GUESTS, ANSIS, AN52$,AN53$ 

,AN54S,ITS 
OP 810 IF QUESTS-"E_ 

M44++4 " THEN 850 
SI 820 ? 8K2; GUESTS:? 8K2; ANSIS:? 8K2JAN5 

2$:? 8K2;AN53$:? ttK2jANS4$:? ttK2;IT$ 
IH 825 POSITION K22,Ki:? " ":POSITION 3 
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5,Kl:? " 
FT 830 CNT=CNT+l:P05ITI0N K22,K1:? CNTiRM 

AIN=MAX-CNT:POSITION 35, Kl : ? RMAIN 
ON 840 GOTO 800 
MO 850 POKE K54286,K192 
00 860 POSITION K10,K10:? " 

II 

MB 870 POSITION K1,K0:? "Create your own 

questions and answers" 
UI 880 GOSUB 4400 
J5 890 POKE K1732,K52:F0R I=K1 TO K10:NEX 

T I:POKE K1731,K52:F0R I=K1 TO K10 : NEX 

T I 
WO 900 POKE K1730,K52:F0R I=K1 TO K10:NEX 

T IlPOKE K1729,K52 
QZ 910 GOSUB 4470IGOSUB 4760 
NZ 920 POKE K764,K255:X=K8:Y=K6:P0SITI0N 

X,Y:? "■" 
UK 930 GOSUB 3800 
IX 940 IF LENCGSXK30 THEN Q$ CLEN CGSJ +11 = 

GOTO 940 

XT 950 IF G$ = " 

" THEN 920 
MG 960 GUEST$=G$ 

XA 970 G$C30)="*":Q$C2J=" ":QS=" " 
00 980 POKE K764,K255:X=K10:Y=K8:P0SITI0N 

X,Y:? "■" 
YV 990 GOSUB 3950 
QG 1000 IF LENCA$J<K20 THEN AS CLEN CA$) +1J 

=" ":GOTO 1000 
FN 1010 IF A$ = " " THEN 

980 
JB 1020 ANSlS=AS 

UH 1030 A$C20)="¥":ASC2J=" ":AS=" " 
ZQ 1040 POKE K764,K255:X=K10: Y=K10:POSITI 

ON X,Y:? "|" 
FB 1050 GOSUB 3950 
CS 1060 IF LENCA$J<K20 THEN AS CLEN CASl +1) 

=" ":GOTO 1060 
PD 1070 IF A$=" " THEN 

1040 
KC 1080 ANS2$=AS 

UZ 1090 ASC20)= ,, ¥":ASC2)=" ":A$=" " 
BQ 1100 POKE K764,K255:X=K10: Y=K12:P05ITI 

ON X,Y:? "■" 
ER 1110 GOSUB 3950 

hk 1120 if lencasj<k20 then as clen cas) +1) 
=" ":goto 1120 

JW 1130 IF AS = " " THEN 

1100 
KB 1140 AN53S=A$ 

UP 1150 ASC20)="¥":A$C2)=" ":AS=" " 
ES 1160 POKE K764, K255 : X=K10 : Y=K14 : P05ITI 

ON X,Y:? "1" 
FJ 1170 GOSUB 3950 
IM 1180 IF LENCASXK20 THEN AS CLEN CASl +11 

=■■ "iGOTO 1180 
UG 1190 IF A$=" " THEN 

1160 
KA 1200 ANS4$=A$ 

VF 1210 A$C20)="¥":ASC2)= A$=" " 

MM 1220 POKE K764, K255 : X=KI6 : Y=K16 : POSITI 

ON X,Y:? "I" 
ZH 1230 GOSUB 4110 
GP 1240 IF LENCC$)<K1 THEN C$ CLEN CCSl +1J = 

GOTO 1240 

CU 1250 IF C$=" " THEN 1220 

YI 1260 IT$=C$C1,1) 

MY 1270 C$C2)="r , :C$C2J=" ":CS=" " 

AN 1280 POKE K764,K255 

OW 1285 POSITION K22,K1:? " ":POSITION 

35, Kl:? " " 
IX 1290 CNT=CNT+l:P05ITI0N K22,K1:? CNT:R 

MAIN=MAX-CNT: POSITION 35, Kl:? RMAIN 
JA 1 300 POKE K764,K255:P0SITI0N K1,K22:? 

■■ annBiDii " 

AG 1310 IF PEEKCK764)=K6 THEN POSITION Kl 
,K22:? "C0NTINUE":G05UB 650 : GOTO 1470 
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5R 1328 IF PEEKtK764J=K7 THEN POSITION Kl 

,K22:? "CONTINUE'-iGOSUB 650:G0T0 1350 
KG 1330 IF PEEKCK7643=K12 THEN POKE K5428 

6,K64:G0SUB 4260:P0KE K54286, K192 : GOSU 

B 4400:G0T0 920 
PD 1340 GOTO 1310 

AG 1350 POKE K764,K255 

C5 1360 POSITION K11,K22:? "MllUM" 

PR 1370 IF PEEKCK764)=K6 THEN POSITION Kl 

1,K22:? " EDIT ":GOSUB 650:G0T0 1280 
CC 1380 IF PEEKCK764)=K7 THEN POSITION Kl 

1,K22:? " EDIT M :GOSUB 650:G0T0 1410 
PC 1390 IF PEEKtK764)=K12 THEN 2180 
RT 1400 GOTO 1370 

ZM 1410 POKE K764,K255 

JG 1420 POSITION K21,K22:? M I I I >J 

21 1430 IF PEEKCK764)=K6 THEN POSITION K2 

1,K22:? " PRINT ":GOSUB 650:G0T0 1350 
IH 1440 IF PEEKCK764J=K7 THEN POSITION K2 

l,K22i? " PRINT ":G05UB 650.-G0T0 1470 
BA 1450 IF PEEKCK764J=K12 THEN POKE K5428 

6,K64:G0SUB 4260:G0SUB 4280:POKE K5428 

6,K192:G0TO 3100 
OX 1460 GOTO 1430 

AO 1470 POKE K764,K255 

IIY 1480 POSITION K31,K22:? ■'MUmUM" 

HU 1490 IF PEEKCK764)=K6 THEN POSITION K3 

l,K22i? " MENU "IGOSUB 650:G0T0 1410 
m 1500 IF PEEK(K764)=K7 THEN POSITION K3 

1,K22:? " MENU ":GOSUB 650 : GOTO 1280 
AN 1510 IF PEEKCK764)=K12 THEN POKE K5428 

6,K64!G0SUB 4260IG0SUB 4280:P0KE K5428 

6,K192:? CHRSC125J :GOTO 210 
TN 1520 GOTO 1490 

TC 1530 POKE K1733,K4:? CHRSCK125) 
HQ 1540 POKE K708,70:P0SITI0N K7,K3:? "ED 

IT" 
ZM 1550 F0UND=K0:CH=2 
VI 1560 POKE K1733,K32 
yw 1570 POSITION K 2,K8:? "Use the fci tt k 

eys then press i:iWiiin:i" 
BB 1580 GOSUB 4400 
KM 1590 POKE K1732, K132 : FOR I=K1 TO KiOiN 

EXT IiPOKE K1731,K132:F0R I=K1 TO K10 : 

NEXT I 
YK 1600 POKE K1730,K132:F0R I=K1 TO K10:N 

EXT IIPOKE K1729,K132 
OB 1610 GOSUB 4500IG0SUB 4600 
SL 1620 POSITION K0,K6:? "t>" 
CG 1630 POKE K764,K255:X=K8:Y=K6:P0SITI0N 

K,Y:? "■" 
CF 1640 GOSUB 3800 
FQ 1650 IF LENCG$J<K30 THEN QS CLEN CQS) +1) 

=■■ ":GOTO 1650 
UI 1660 IF Q$=" 

" THEN 1630 
Ml 1670 Q5S=QS 

NZ 1680 G$C30)="V":a$m=" ";qS="" 

RZ 1690 POKE K54286,K64 

TB 1700 CLOSE «K1:CL0SE »K2 

MG 1710 OPEN ttKl,K4,K0,FILEl$:0PEN JtK2,K8 

, K0,FILE2$ 
Hi 1720 INPUT ttKl, QUESTS, ANSIS, AN52$,ANS3 

$, ANS4$,IT$ 
UP 1730 IF QUESTS: 

ESSSE" THEN 2120 
QV 1740 IF QSStl,lJ="*" THEN F0UND=1:G0T0 

1780 
AT 1750 IF QS$=QUESTS THEN F0UND=1 : GOTO 1 

780 
B5 1760 ? «K2jQUESTS:? «K2jANSl$:? ttK2;AN 

S2$:? »K2;ANS3$:? «K2;ANS4S:? «K2;ITS 
SD 1770 GOTO 1720 
KY 1780 POSITION K8,K6:? QUESTS : POSITION 

K10,K8:? ANSiS:POSITION K10,K10:? ANS2 

YX 1790 POSITION K10,K12:? ANS3S : POSITION 
K10,K14:? ANS4S: POSITION K16,K16:? IT 
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FR 1800 POKE K54286,K192 

AE 1810 POKE K764,K255 

TO 1820 POSITION K1,K22:? " EErjrfJ " 

LO 1830 IF PEEKCK764J=K6 THEN POSITION Kl 

,K22:? " CHANGE ":GOSUB 658:G0TO 2O0O 
AC 1840 IF PEEKCK764J=K7 THEN POSITION Kl 

,K22:? " CHANGE ":GOSUB 650:GOTO 1870 
XM 1850 IF PEEKCK764J=K12 THEN CH=2:G0T0 

2180 
TB 1860 GOTO 1830 

AH 1870 POKE K764,K255 

MO I860 POSITION K11,K22:? " ■)»»!< " 

JO 1890 IF PEEKCK764)=K6 THEN POSITION Kl 

1,K22:? " DELETE ":GOSUB 650:G0T0 1810 
UX 1900 IF PEEKCK764)=K7 THEN POSITION Kl 

1,K22:? " DELETE "iGOSUB 650:G0T0 1940 
C5 1910 IF PEEKCK764)=K12 AND Q5SC1,1)<>" 

*" THEN POKE K54286,K64:G0T0 2080 
OZ 1920 IF PEEKCK764)=K12 AND QS$C1,1)="* 

" THEN POKE K54286,K64:P05ITI0N K11,K2 

2:? " DELETE " : GOTO 1720 
VU 1930 GOTO 1890 

AP 1940 POKE K764,K255 

FU 1950 POSITION K21,K22:? "M3IIDM" 

CY 1960 IF PEEKCK764)=K6 THEN POSITION K2 



1,K22:? 



NEXT ":G05UB 650:G0T0 1870 



PS 1970 IF PEEKCK764)=K7 THEN POSITION K2 

1,K22:? " NEXT ":GOSUB 650:G0T0 2000 
PF 1980 IF PEEKCK764)=K12 AND QS$(1,1J="* 

" THEN POSITION K21,K22:? " NEXT ":P 

OKE K54286,K64:G0SUB 2060:G0T0 1720 
UL 1990 GOTO I960 

ZM 2000 POKE K764,K255 

TH 2010 POSITION K31,K22i? Mil I MM 

DP 2020 IF PEEKCK764)=K6 THEN POSITION K3 

l,K22i? " MENU "iGOSUB 650:G0T0 1940 
TA 2030 IF PEEKCK764)=K7 THEN POSITION K3 

1,K22:? " MENU "iGOSUB 650:G0T0 1810 
YP 2040 IF PEEKtK764)=K12 THEN POKE K5428 

6,K64:G0SUB 2060:GOTO 2080 
OP 2050 GOTO 2020 
BF 2060 ? «K2;QUESTS:? »K2;ANS1S:? HK2;AN 

52$:? ttK2;ANS3$I? 8K2;ANS4$i? »K2;IT$ 
M 2070 RETURN 
HM 2080 INPUT ttKl, QUESTS, ANSIS, ANS2S,AN53 

$,ANS4$,ITS 

UU 209 IF QUEST $ = " f **************** *~f*~*~*~\ 

*********' THEN 2120 
AP 210O ? «K2;QUEST$:? ttK2;ANSlSi? «K2jAN 

S2$:? «K2;ANS3$i? ttK2;ANS4Si? ttK2;IT$ 
RF 2110 GOTO 2080 

HM 2120 IF FOUND=KO THEN GOSUB 4360 
AY 2130 ? ttK2;QUE5T$i? »K2;AN5lS:? »K2;AN 

S2$:? »K2;AN53$i? «K2;ANS4$:? ttK2;IT$ 
TC 2140 CLOSE OKI: CLOSE ttK2 
AP 2150 XIO 33,BK1,K0,K0,FILE1$ 
FJ 2160 XIO 32,ttKl,KO,K0, ,, D:GAME.TMP,GAME 

.DAT" 
DJ 2170 POKE K54286,K192:? CHRS CK125) i GOT 

210 
LO 2180 POKE K1733,K4 
JG 2190 GOSUB 4810:P0KE K1729, K4 : GOSUB 48 

20! POKE K1730,K4 
JG 2200 GOSUB 483Q:P0KE K1731, K4 : GOSUB 48 

40:P0KE K1732,K4 
DT 2210 GOSUB 4650 
IJ 2220 POKE 1757,K6:P0KE K1733, K2 : POSITI 

ON K12,K22:? "OPTION^RETURN" 
CQ 2230 POKE K1732, K198 : FOR I=K1 TO K5:NE 

XT IiPOKE K1731,K198:F0R I = K1 TO K5 : NE 

XT I 
MB 2240 POKE K1730, K198 : FOR I=K1 TO K5:NE 

XT IiPOKE K1729,K198 
DS 2250 GOSUB 4550 
AE 2260 POKE K764,255 
5T 2270 POSITION K0,K6:? "t>" 
JG 2280 IF PEEKCK764)=KI4 THEN POSITION K 
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0,K6:? " "!G05UB 650:GOTO 2960 
IB 229B IF PEEKCK764J=K15 THEN POSITION K 

0,K6:? " ":G05UB 650:G0T0 2400 
XB 2360 IF PEEKCK53279)=K3 AND CH = K2 THEN 
G05UB 471Q:P0KE 1757,12:P0KE K1733,K3 

2.-G0T0 1810 
BP 2310 IF PEEKtK53279)=K3 AND CH=K1 THEN 
GOSUB 4660:P0KE 1757,12:P0KE K1733 J K1 

96:G0T0 1300 
QW 2320 IF PEEKCK764)=K12 THEN GOTO 2340 
SN 2330 GOTO 2288 
BK 2340 POKE K764, K255 : X=K8 : Y=K6 : POSITION 

K8,K6:? "| 

. ."IGOSUB 38O0 
BO 2358 IF LENCQSXK30 THEN Q$ CLEM COS) + 1) 

=•■ ".-GOTO 2350 
PW 2360 IF G$=" 

" THEN GOTO 2340 
SW 2370 OUESTS^OS 

FA 2380 Q$C30)= M ":QSC2)=" " : 0$ = "" 
SF 2398 GOTO 2260 
ZO 24O0 POKE K764,255 
TR 2410 POSITION K0,K8:? "%►■» 
UE 2420 IF PEEK(K764)=K14 THEN POSITION K 

0,K8:? " "IGOSUB 650:G0T0 2260 
XP 2430 IF PEEK(K764)=K15 THEN POSITION K 

0,K8:? " "iGOSUB 650:G0T0 2540 
XP 2440 IF PEEKtK53279)=K3 AND CH = K2 THEN 
G05UB 4710IPOKE 1757,12:P0KE K1733,K3 

2-.G0TO 1810 
CD 2450 IF PEEKtK53279)=K3 AND CH = K1 THEN 
G05UB 4660:P0KE 1757,12:P0KE K1733,K1 

96:G0T0 1300 
YH 2469 IF PEEKtK764)=K12 THEN GOTO 2488 
QZ 2470 GOTO 2420 
Py 2480 POKE K764,K255:X=K10:Y=K8:P05ITI0 

N K10,K8:? "I ":GOSU 

B 3950 
SW 2498 IF LENCASXK20 THEN AS CLEN CAS) +1J 

=" M :GOTO 2490 
YZ 2500 IF A$=" " THEN 

GOTO 2480 
JJ 2510 AN51$=A$ 

ZJ 2520 A$(20)=" ":ASC2)=" ":A$="" 
Pl» 2530 GOTO 2400 
AE 2540 POKE K764,255 
OL 2550 POSITION K0,K10:? "%►" 
FL 2560 IF PEEK£K764)=K14 THEN POSITION K 

0,K1O:? " "IGOSUB 650:G0T0 2400 
GM 2570 IF PEEKCK764)=K15 THEN POSITION K 

0,K10I? GOSUB 650:G0T0 2680 

YD 2588 IF PEEKCK53279)=K3 AND CH=K2 THEN 
GOSUB 4710:POKE 1757,12:P0KE K1733,K3 

2:G0T0 1810 
CR 2590 IF PEEKCK53279)=K3 AND CH = K1 THEN 
GOSUB 4660:P0KE 1757,12:P0KE K1733,K1 

96:G0T0 1300 
SD 260O IF PEEK£K764)=K12 THEN GOTO 2620 
5X 2610 GOTO 2560 
SP 2620 POKE K764,K255:X=K10:Y=K10:PO5ITI 

ON K10,K10:? "1 ":G0 

SUB 3950 
KK 2630 IF LENCASXK20 THEN A$ CLEN tA$) +1) 

=" " : GOTO 2630 
SF 2640 IF A$=" ■■ THEN 

GOTO 2620 
KG 2650 ANS2$=A$ 

ZX 2660 A$C20)=" ":A$t2J= M " : A$="" 
SP 2678 GOTO 2540 
AS 2680 POKE K764,255 
QN 2698 POSITION K0,K12:? "t^" 
VG 2700 IF PEEKCK764)=K14 THEN POSITION K 

0,K12:? " "IGOSUB 650:G0T0 2540 
YS 2710 IF PEEKtK764)=K15 THEN POSITION K 

0,K12:? " "iGOSUB 650:G0T0 2820 
XP 2720 IF PEEKCK53279)=K3 AND CH = K2 THEN 
GOSUB 4710JP0KE 1757,12:P0KE K1733,K3 

2:G0T0 1810 



CD 2730 IF PEEKCK53279)=K3 AND CH = K1 THEN 
GOSUB 4660:P0KE 1757,12:P0KE K1733,K1 

96:G0T0 130O 
ZO 2740 IF PEEKCK764)=K12 THEN GOTO 2760 
RJ 2750 GOTO 2700 
ZF 2760 POKE K764, K255 : X=K10 : Y=K12 : POSITI 

ON K10,K12:? "I ":G0 

SUB 3950 
US 2770 IF LENCASXK20 THEN AS CLEN (A$) +1) 

=" ":G0T0 2770 
BT 2780 IF A$=" " THEN 

GOTO 2760 
LD 2790 ANS3$=AS 

ZJ 2800 A${20)=" ":A$C2J=" ":A$="" 
UN 2810 GOTO 2680 
AE 2820 POKE K764,255 
RN 2830 POSITION K0,K14:? "£ ►" 
MD 2840 IF PEEKCK764)=K14 THEN POSITION K 

0,K14i? " "IGOSUB 650IG0T0 2680 
PP 2850 IF PEEK(K764)=K15 THEN POSITION K 

0,K14:? GOSUB 650JGOTO 2960 

YD 2860 IF PEEKCK53279)=K3 AND CH = K2 THEN 
GOSUB 4710SP0KE 1757,12iP0KE K1733,K3 

2:G0T0 1810 
CR 2878 IF PEEKCK53279J=K3 AND CH=K1 THEN 
GOSUB 4660:P0KE 1757,12:P0KE K1733,K1 

96JG0T0 1300 
UM 2880 IF PEEKCK764)=K12 THEN GOTO 2900 
UJ 2890 GOTO 2840 
ET 2900 POKE K764,K255:X=K10:Y=K14: POSITI 

ON K10,K14:? "I ":G0 

SUB 3958 
MG 2910 IF LENCASXK20 THEN AS CLEN CASJ +1) 

= GOTO 2910 

TX 2920 IF AS=" " THEN 

GOTO 29O0 
KY 2930 ANS4$=AS 

ZX 2940 ASt20J=" ":ASt2)= AS="" 

SZ 2950 GOTO 2820 

AS 2968 POKE K764,255 

TP 2970 POSITION K8,K16:? "fc ►" 

FL 2980 IF PEEKCK764)=K14 THEN POSITION K 

0,K16:? " ":G05UB 650:G0T0 2820 
BK 2990 IF PEEKCK764)=K15 THEN POSITION K 

0,K16:? " "iGOSUB 650:G0T0 2260 
MM 3O00 IF PEEKCK53279)=K3 AND CH = K2 THEN 
GOSUB 4710SPOKE 1757,12:P0KE K1733,K3 

2IG0T0 1810 
BK 3010 IF PEEKtK53279)=K3 AND CH=K1 THEN 
GOSUB 4660IP0KE 1757,12:P0KE K1733,K1 

96IG0T0 1300 
NY 3020 IF PEEK<K764J=K12 THEN GOTO 3040 
VO 303O GOTO 2980 
JZ 3040 POKE K764,K255:X=K16:Y=K16:P05ITI 

ON K16,K16:? "|":GOSUB 4110 
JE 3050 IF LENCCSXK2 THEN CS CLEN CCS) +1) = 

" ":G0T0 3050 
IP 3O60 IF C$=" " THEN GOTO 3040 
IF 3070 ITS=CS 

AT 3080 C$C2J=" ":CSC2)= C$ = "" 

MG 3090 GOTO 2960 

SN 3100 POKE K1733,K4:? CHR$ CK125) 

NC 3110 COUNT=0 

OC 3120 POSITION K4,K0:? "Use <CTL> & 1 k 

ey to stop print" 
FB 3130 POKE K708,K152:P0SITI0N K7,K3:? " 

PRINT" 
UY 3140 POSITION K12,K6:? "Printer Option 

s" 
ED 3150 POSITION K2,K10:? " 

DM 3160 POSITION K11,K14:? "Use the \+ t + 

keys" 
MO 3170 POSITION K8,K16:? "to Hake your s 

election" 
JK 3180 POSITION K11,K18:? "then press US 

nrrrnm " 

FB 3196 POKE K1729,K4:F0R I=K1 TO K10:NEX 
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T IiPOKE K1730,K4:F0R I = K1 TO K10 i NEXT 
I 
IS 3200 POKE K1731,K4iF0R I = K1 TO KlOiNEX 

T IiPOKE K1732,K4 

XY 3210 POKE K1733,38 

UT 3220 POSITION K1,K22:? " EEBU " 
AG 3230 POSITION Kll,K22i? "PRINTER " 
SR 3240 POSITION K21,K22:? " BOTH " 
CR 3250 POSITION K3i,K22i? " MENU " 

AJ 3260 POKE K764,K255 

UI 3270 POSITION Ki,K22i? "EBDTJLIIl" 

10 3280 IF PEEKCK764)=K6 THEN POSITION KI 

,K22i? " SCREEN "iGOSUB 65O:G0T0 3440 
BB 3290 IF PEEKCK764)=K7 THEN POSITION Ki 

,K22:? " SCREEN "iGOSUB 650:G0T0 3320 
KI 3380 IF PEEKCK764)=K12 THEN 3500 
ST 3310 GOTO 3280 

ZZ 3320 POKE K764,K255 

SE 3330 POSITION Kli,K22i? " BGHUBM " 

IR 3340 IF PEEKCK764)=K6 THEN POSITION KI 

l,K22i? "PRINTER "IGOSUB 650:G0T0 3260 
SF 3350 IF PEEKCK764)=K7 THEN POSITION KI 

l,K22i? "PRINTER "iGOSUB 650:G0T0 3380 
EN 3360 IF PEEKCK764)=K12 THEN PR=Kl!G0T0 

3500 
RK 3370 GOTO 3340 
OR 3380 POKE K764,K255 
LE 3398 POSITION K21,K22i? 



UZ 3400 IF PEEKCK764)=K6 THEN POSITION K2 

1,K22:? " BOTH "IGOSUB 650:G0T0 3320 
EM 3410 IF PEEKCK764)=K7 THEN POSITION K2 

i,K22i? '■ BOTH "iGOSUB 650:G0T0 3440 
FK 3420 IF PEEKCK764)=K12 THEN PR=K2iG0TO 

3500 
PZ 3430 GOTO 3400 

AH 3440 POKE K764,K255 

Uft 3458 POSITION K31,K22:? " MUDi " 

EM 3460 IF PEEKCK764)=K6 THEN POSITION K3 

l,K22i? " MENU "iGOSUB 650:G0T0 3380 

WU 3470 IF PEEKCK764)=K7 THEN POSITION K3 

| l,K22i? " MENU "iGOSUB 650 1 GOTO 3260 

ED 3480 IF PEEKCK764)=K12 THEM POKE 1733, 

4i? CHRSC125) iGOTO 210 
TR 3490 GOTO 3460 

UD 3500 GOSUB 4340iPOKE K54286,K64 
JY 3510 Xl=K3iYl=K5 
AN 3520 OPEN ttKl, K4, K0, FILE1S 
HJ 3530 INPUT 8K1, QUESTS, ANSIS, AN52S,ANS3 

S,ANS4S,IT$ 

NO 3540 IF 1XUZ%f%-" t**+*******+*********+4 

V*******i " THEN 3730 
GO 3550 COUNT=COUNT+i 
VQ 3560 IF PR=K1 THEN GOSUB 3650: GOTO 353 

O 

HW 3570 IF PR=K2 THEN GOSU B 365B 

01 3580 POSITION Xl,Yli? " Itm.UB.'UI'HJiH 

"JCOUNT 
MO 3590 Y1=Y1+1 
HO 3600 POSITION Xl,Yli? QUESTS i Y1=Y1+1 I P 

OSITION Kl,Yli? ANS1$:Y1=Y1+I:P0SITI0N 
Xl,Yli? ANS2$iYl=Yl+i 
II 3610 POSITION Xl,Yli? ANS3S I Y1=Y1+1 i PO 

SITION Xl,Yli? ANS4$:Yl=Yl+l!P0SITI0N 

Xl,Yli? ITS 
MK 3620 Y1=Y1+1 
XQ 3630 I F Y1> K16 THEN POSITION K2,Yli? " 

Press af:1:tl to continue, I4--1H to end":P 

OKE K54286,K192iG0T0 3770 
SF 3640 GOTO 3530 

NZ 3650 LPRINT "Record Number: ";COUNT 
KU 3660 LPRINT QUESTS 
HZ 3670 LPRINT ANSIS 
IS 3680 LPRINT ANS2S 
JL 3690 LPRINT AN53S 
JC 3700 LPRINT AN54S 
LU 37I0 LPRINT ITS 
AU 3720 RETURN 
PY 3730 CLOSE ttKliPOKE K54286,K192 



RD 3740 POSITION K4,Yl + li? "Press EHEJB 

to return to MENU" 
JU 3750 IF PEEKCK53279)=K5 THEN ? CHRS C12 

5) :GOTO 218 
UL 3760 GOTO 3750 
EZ 3770 IF PEEKC53279)=K6 THEN GOSUB 4340 

:Yl=5iP0KE K54286,K64iG0T0 3640 
OK 3780 IF PEEKCK764)=K28 THEN CLOSE OKI! 

? CHRSC125) iGOTO 218 
VU 3790 GOTO 3770 
NR 3800 E1=K0 
GX 3810 FOR I=K1 TO K31 
SJ 3820 IF I>K30 THEN I=I-K1 1 POSITION X,Y 

I? " "!X=X-K1:E1=K1 
PE 3830 IF KK1 THEN I=I+K1 ! POSITION X,Y: 

? " "iX=X+Kl:POSITION X,Yi? "I" 
LZ 3840 GET »4,Q 

ZY 3850 IF Q=K126 THEN 3870IE1=KO 
HY 3868 IF Q=K155 THEN 3930 
MY 3870 IF Q=K126 THEN POSITION X,Yi? " . " 

iX = X-KliPOSITION X,Yi? "1" I I=I-K1: E1=K 

O 
JB 3888 IF KK1 THEM 3830 
PJ 3890 IF Q=K126 ANO I>KO THEN QSCI)=" " 

iGOTO 3830 
RO 3908 POSITION X,Yi? CHRSCQ) 
VI 3910 IF I>KO THEN Q$ CI) =CHRS CQ) 
QA 3928 X=X+K1:P0SITI0N X,Yi? "I":NEXT I 
PG 3930 IF E1=K1 THEN RETURN 
HG 3940 POSITION X,YS? "."iRETURN 
01 3950 EI=KO 
GG 3960 FOR I=K1 TO K21 
SO 3970 IF I>K20 THEM I=I~K1 i POSITION X,Y 

i? " ":X=X-K1:E1=K1 
PV 3980 IF KK1 THEM I=I + K1 1 POSITION X,Y: 

? X=X+KliP0SITI0N X,Yi? "I" 

UO 3990 GET 84, AN 

IM 4000 IF AN=K126 THEN 4O3OiEl=K0 

KY 4010 IF AN=K155 THEN 4090 

SO 4020 IF I = K2i THEN I=I-K1 1 POSITION X,Y 

i? X = X-Kl!POSITION X,Yi? "1"!G0T0 

3990 
HZ 4030 IF AN=K126 THEM POSITION X,Yi? ". 

■■:X=X-KllPOSITIOM X,Yi? "■": I=I-K1 i El= 

KO 
m 4040 IF KK1 THEN 3980 
MN 4050 IF AN = K126 AND I>K0 THEN AS CI) =" 

"iGOTO 3980 
GE 4860 POSITION X,Yi? CHRSCAM) 
HU 4070 IF I>KO THEN AS CI) = CHR$ CAN) 
QB 4088 X = X + KHP0SITI0N X,Yi? "I":NEXT I 
PH 4098 IF E1=K1 THEN RETURN 
GF 4100 POSITION X,Yi? "."iRETURN 
TK 4110 FOR I=K1 TO K2 
CR 4120 IF I>K2 THEN I=I-K1 i POSITION X,Y: 

? X=X-Ki 

OR 4130 IF KK1 THEN I=I + K1 ! POSITION X,Yi 

? " ":X=X+KliPOSITION X,Yi? "1" 
HQ 4140 GET «4,CR 
MQ 4150 IF CR=K126 THEN 4180 
KZ 4160 IF CR=K155 THEN 4240 
BG 4165 IF CR<49 OR CR>52 THEN POSITION X 

,Yi? "1" iGOTO 4140 
AD 4170 IF I = K2 THEN I=I-K1 1 POSITION X,Yi 

? X = X-Kli POSITION X,Yi? "I" iGOTO 4 

140 
TT 4188 IF CR=K126 THEN POSITION X,Yi? " 

"iX^X-Kl I POSITION X,Yi? "I" I I=I~K1 i GOT 

4130 
EA 4190 IF KK1 THEN 4130 
UU 4200 IF CR=K126 AND I>KO THEN CSCI)=" 

"IGOTO 4130 
LX 4210 POSITION X,Yi? CHRS CCR) 
PX 4220 IF I>K8 THEN C$ CI) =CHRS CCR) 
PQ 4230 X=X+KliPOSITION X,Yi? "■" : NEXT I 
EI 4240 IF KK3 THEN POSITION X,Y:? " " 
AV 4250 RETURN 
BL 4260 ? «K2;QUE5T$i? «K2;ANS1S:? »K2;AN 
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52$:? »K2;AN53$:? »K2;ANS4$:? BK2jIT$ 
BB 4279 RETURN 
ftM 4 2SB QUEST$=" 

BU 4299 ? »K2; QUESTS:? ttK2; ANSIS:? »K2;AN 

52$:? ttK2;ANS3$:? »K2;ANS4$:? 8K2JITS 
SW 4300 CLOSE BKliCLOSE ttK2 
AJ 4310 XIO 33,«K1,K0,K0,FILE1$ 
FD 4320 XIO 32,»K1,K0,KO,"D:GAME.TMP,GAME 

.DAT" 
AR 4330 RETURN 
YP 4340 FOR I = K5 TO K20:P0SITI0N Ki,I:? " 

" : NEXT IiRETURN 
Y5 4350 POKE K1730 , K52 : FOR IrKl TO K10:NE 

XT I.-POKE K1729,K52 
OU 4360 FOR I = Ki TO K10 : POSITION KO,KO:? 

II 

"IFOR J = K1 TO K10:NEXT J 

XF 4370 POSIT ION KO,K0:? " l;H4'I:l»3 

gEHOgnna ":for k=ki to kioinext 

K 
FM 4380 NEXT I 
BJ 4390 RETURN 
II 4400 POSITION Ki,K6:? "Quest? 



DM 4410 POSITION K1,K8:? "Answer 1 

II 

EM 4420 ' POSITION K1,K10:? "Answer 2 

II 

HT 4430 ' POSITION - K1,K12:? "Answer 3 

II 

KQ 444o'p6si"ri6N'Kl,K14:? "Answer 4 

II 

UI 445o" POSITION K1,KI6:? "Correct nunber 

■ I 

BC 4460 RETURN 

SY 4470 POSITION K2,K18:? "Input Question 

, Answers & Correct No." 
MB 4480 POSIT ION K6 ,K2Q:? "Use t* t* keys 

- press HSUEE" 
Bt. 4490 RETURN 
YY 4500 POSITION K0,K18:? "Input the Ques 

tion to locate the record" 
EY 4510 POSITION K0,K19:? "or use an ■*■ 

to step through the file." 
PN 4520 POSITION KG,K20:? "Use the OPTION 

5 below when the record" 
OS 45 30 POS ITION K0,K21:? "is found. Pres 

s l:niu:i:i when changed." 
AY 4540 RETURN 
JC 4550 POSITION Ki,K18:? "Use the fc+ tt 

keys to page up and down" 
HL 4560 POSITION K1,K19:? "until you find 

the line you wish to" 
up 4570 POSITION K1,K20:? "change. Make 

the change and press the" 

ZO 4580 POSITION K1 J K21:? " l:l*<U:i:i key. P 

ress <OPTION> when done" 
BN 4590 RETURN 

OX 4600 POSITION K1,K22:? " CHANGE " 
TH 4610 POSITION K11,K22:? " DELETE " 
NM 4620 POSITION K2i,K22:? " NEXT " 
CU 4630 POSITION K3i,K22:? " MENU " 
UV 4640 FOR I=K6 TO K16:P05ITI0N K0,I:? " 

":NEXT IiRETURN 
GT 4650 POSITION K0,K22:? " 

" : RETURN 
JJ 4660 GOSUB 4810:P0KE K1729, K4 : G05UB 48 

20:P0KE K1730,K4 
KL 4670 GOSUB 4830 : POKE K1731, K4 : GOSUB 48 

40IP0KE K1732,K4 
ST 4680 POKE K1732 , K52 : FOR I=K1 TO K5 : NEX 

T ISPOKE K1731,K52:F0R I = K1 TO K5:NEXT 
I 
QV 4690 POKE K1730, K52 : FOR I = K1 TO K5:NEX 

T I : POKE K1729 K52 
MK 4700 GOSUB 4470:G0SUB 4650:G0SUB 4760: 



RETURN 
IW 4718 GOSUB 4810:P0KE K1729, K4 : GOSUB 48 

20IP0KE K1730,K4 
JY 4720 GOSUB 4830:P0KE K1731, K4 : GOSUB 48 

40:P0KE K1732,K4 
TO 4739 POKE K1732, K132 : FOR I=K1 TO K5:NE 

XT I:POKE K1731,K132:F0R I=K1 TO K5:NE 

XT I 
MZ 4740 POKE K1730, K132 i FOR I=Ki TO K5:NE 

XT I : POKE K1729 K132 
AB 4750 GOSUB 450Q:G0SUB 4650:G0SUB 4608: 

RETURN 
ZD 4760 POSITION K1,K22:? "CONTINUE" 
LK 4770 POSITION Kll,K22i? " EDIT " 
5L 4780 POSITION K21,K22:? " PRINT " 
DO 4790 POSITION K31,K22:? " MENU " 
UN 4800 FOR IrK6 TO K16:P0SITI0N KO,I:? " 

"INEXT IiRETURN 
FM 4810 POSITION K0,K18:? " 

ii ■ RETURN 
GT 4820 POSITION K0,K19:? " 

■ I . RETURN 
AR 4830 POSITION K0,K20:? " 

ii ■ RETURN 
BO 4840 POSITION K0,K21i? " 

■ ■ • RETURN 

YD 4850 FOR I=K18 TO K2I:P05ITI0N KO,I:? 
ii 

■ ■ . next i ! return 
ZF 4860 GRAPHICS Kl : POKE K710,K0:P0KE K75 

2,K1!P0KE K708,148:P0KE K764,K255 
DL 4870 POSITION 9,4:? tt6;"A" 
py 4880 POSITION K7,K8:? »6; "trivia" 
CQ 4890 POSITION K8,K12i? tt6 : "E rT73 " 
KK 49O0 ? " Please wait - progran is loa 

ding" 
UM 4910 RUN "DiTRIU.BAS" 

OW 4920 INIT=INIT+Ki:IF INIT>K1 THEN 5010 
TT 4930 GRAPHICS 0:POKE K752,K1:P0KE K710 

,K0:P05ITI0N K10,K10:? "10 Seconds pie 

ase. . ." 
NN 4940 RESTORE 5150:F0R N=0 TO 99:READ X 

:P0KE 1664+N,X:NEXT N 
VE 4950 C0LTAB=1712:LUMTAB=C0LTAB+24 
JN 4960 REM START COUNTER AND RESET EVERY 

UBI 
PI 4970 X=U5R(1693) 

AA 4980 REM TELL ANTIC MHERE DLI CODE IS 
CX 4990 POKE 512,128 
PF 5000 POKE 513,6 

MS 5010 REM NOM SET INTERRUPT BITS 
JF 5020 DSTART=PEEKC560>+256*PEEKC561J 
AU 5030 FOR N=D5TART+6 TO DSTART+28 
XG 5040 POKE N,130 
HL 5050 NEXT N 
UN 5060 REM SET INTERRUPT BIT ON FIRST LI 

NE 
TA 5070 POKE DSTART+3,194 
DK 5080 REM ENABLE DLI 
CS 5090 POKE 54286,192 
MD 5100 PRINT CHR$C125J 

FT 5110 REM HANDLE LINE AS BACKGROUND 
TA 5120 POKE 710,PEEKICOLTAB) 
JU 5130 POKE 709,PEEKILUMTAB) 
AR 5140 RETURN 
NZ 5150 DATA 72,138,72,174,156,6,189,176, 

6,141 
HX 5160 DATA 10, 212, 141, 24, 208, 189, 200, 6, 

141,23 
H5 5170 DATA 208,238,156,6,104,170,104,64 

,1,104 
NN 5180 DATA 169,7,160,168,162,6,32,92,22 

JP 5190 DATA 169,1,141,156,6,76,98,228,8, 

4 

RL 5200 DATA 4,4,4,4,4,4,4,4,4,4 

RO 5210 DATA 4,4,4,4,4,4,4,4,4,4 

TJ 5220 DATA 4,4,9,12,12,12,12,12,12,12 
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MB 5230 DATA 12,12,12,12,12,12,12,12,12,1 

2 
VY 5240 DATA 12,12,12,14,14,14,0,0,0,0 



Listing 2. 
BASIC listing. 



HX 10 REM A TRIVIA GAME BY Jan Iverson 

AZ 20 REM 

BL 30 KO=0:K1=1:K2=2:K3=3:K4=4:K5=5:K6=6: 

K7=7 : K8 = 8 : K9 = 9 : K10=10 : Kll=ll : K12=12 : Kl 

3=13 : K14=14 : K15=15 : K16=16 : K17=17 
KM 40 K18=18:K19=19:K2O=20:K21=21:K22=22: 

K23=23:K30=30:K34=34:K49=49:K50=5O:K52 

=52:K60=6O:K91=91:K1OO=1OO:K2O0=2O0 
Kl SO K752=752:K35=35:K45=45:K53=53:K64=6 

4:K81=81:K96=96:K128=128:K540=540:K532 

79=53279 : K764=764 : K255=255 
IE 60 DIM A$t30J ,B$(20) , C$ C20> ,D$C20) , E$ C 

20),F$C1J .H$C1J,RC3J 
UT 70 DIM AlSC6OOO),Bl$C400OJ,Cl5f40OO),D 

1$14000) ,El$f4OO0J ,Fl5t200) ,FILE1$C15J 
AJ 80 FILE1S=" ":FILEi$="D: 

GAME.DAT":SCORE=K0:HSCORE=KQ 
PA 30 a=KO:B=KO:C=ko:d=ko:A1=KO:P=KO:q=ko 

: R = KO : CNT=KO : CT=KO : XX = KO : XXX=KO 
JO 100 CLOSE ttKl:OPEN SKI, K4, KO, FILE1S : OP 

EH ttK4,K4,K0, M K:":GOSUB 1350:P0KE 5377 

4,K64:P0KE K16,K64 
XM 110 G05UB 1500:P0KE K752, Kl : GOSUB 760 
DQ 120 POSITION K2,K22!? "5TART=PLAY AGAI 

N OPTION=END 5E55I0N" : POKE 53774, K64: 

POKE K16,K64:SS=45:L1=K9 
AN 130 POKE 54286, 192:G0SUB 1150:G0SUB 11 

70:G0SUB 1190 
UA 140 POSITION K5,K3:? ASiSOUND K0,K45,K 

10,K8:F0R I=K1 TO K15:NEXT I 
OT 150 POSITION K10,K9:? B$:SOUND K0,K53, 

K10,K8:F0R I=K1 TO K15:NEXT I 
HO 160 POSITION K10,K11:? C$:SOUND K0,K64 

,K10,K8!F0R I=K1 TO K15:NEXT I 
10 170 POSITION K10,K13:? D$:SOUND K0,K81 

,K10,K8:F0R I=K1 TO K15:NEXT I 
TC 180 POSITION K10,K15:? E$:SOUND K0,K96 

,K10,K8:F0R I=K1 TO K15:NEXT I:50UND K 

0,K0,KO,K0 
QA 190 POSITION K6,K19:? " Select 1 

- 4 
HM 200 TM=K10:P0KE K764,K255 
UP 210 GOSUB 1920 
XY 220 GET SK4,ANS 
G5 230 IF ANS<K49 OR AN5>K52 THEN POKE K7 

64,K255:G0SUB 1920:G0T0 228 
BJ 240 H$=CHR$CANS) 
UK 250 IF H$ = F$ THEN SOUND KO, K45, K10, K12 

IFOR I=K1 TO K30:NEXT IiSOUND K0,K52,K 

10,K12:F0R I=K1 TO K30:NEXT I 
GX 260 IF H$=F$ THEN GOSUB 70O:G0T0 420 
GM 270 GOSUB 710 : GOTO 440 
UB 280 GOSUB 730 
PZ 290 POSITION K10,K3:? "RIGHT ";B;" M 

RONG M i C 
PT 300 POSITION K6,K19:? "Choose one of t 

he options fc± " 

MH 310 POSITION K2,K2 2:? "fcLLLU" : POSITION 

K20,K22:? " niann:i " 

MX 320 FOR I = K1 TO K30 

DU 330 IF PEEK(K53279)=K3 THEN POSITION K 

2,K22:? "START":POSITION K20,K22:? "OP 

TION":GOTO 830 
RK 340 IF PEEKCK53273)=K6 THEN POSITION K 

2,K22:? "5TART":P0SITI0N K20,K22!? "OP 

TION":GOSUB 730:G0T0 130 
GD 350 NEXT I 
CJ 360 POSITION K2,K22:? "START" : POSITION 



K20,K22:? "OPTION" 
NH 370 FOR I=K1 TO K30 
EF 380 IF PEEKCK53273)=K3 THEN POSITION K 

2,K22:? "START":POSITION K20,K22:? "OP 

TI0N":G0T0 830 
RU 330 IF PEEKCK53273J=K6 THEN POSITION K 

2,K22:? "START":P05ITI0N K20,K22:? "OP 

TION":GOSUB 730JG0T0 130 
FU 400 NEXT I 
MQ 410 GOTO 310 

OS 420 B=B+K1:50UND K0,KO,KO,KO 
DD 430 GOSUB 2050 : GOTO 280 
EG 440 C=C+Kl:SOUND KO, K31, K12, K10 : FOR DE 

LAY=K1 TO K200:NEXT DELAY:SOUND KO,KO, 

KO,K0 
ZK 450 IF F$= M i" THEN GOSUB 508 
FD 460 IF F$="2" THEN GOSUB 550 
BM 470 IF F$= M 3" THEN GOSUB 600 
HF 480 IF F$= M 4" THEN GOSUB 650 
PU 430 GOTO 280 
EL 500 FOR I=K1 TO K4 
MP 510 POSITION K7,K9:? "[H":SOUND K0,K96 

,K10,K8:F0R DELAY = K1 TO K50.-NEXT DELAY 
RM 520 POSITION K7,K9:? "l.":SOUND KO,KO, 

K0,KO:FOR DELAY=K1 TO K50:NEXT DELAY 
GB 530 NEXT I 
ZJ 540 RETURN 
EV 550 FOR I=K1 TO K4 
KH 560 POSITION K7,K11:? "EH" : SOUND K0,K9 

6,K10,K8:F0R DELAY=K1 TO K50 : NEXT DELA 

Y 
AS 570 POSITION K7,K11:? "2.":S0UND KO,KO 

,K0,KO:FOR DELAY=K1 TO K50:NEXT DELAY 
GL 580 NEXT I 
ZT 590 RETURN 
EM 600 FOR I=K1 TO K4 
MI 610 POSITION K7,K13i? "ai":50UND K0,K9 

6,K10,K8:FOR DELAY=K1 TO K50:NEXT DELn 

Y 
CT 620 POSITION K7,K13:? "3.":S0UND K0,K0 

,KO,KO:FOR DELAYrKi TO K50:NEXT DELAY 
GC 630 NEXT I 
ZK 640 RETURN 
EM 650 FOR I=K1 TO K4 
PC 660 POSITION K7,K15:? "EH":50UND K0,K3 

6,K10,K8:FOR DELAY=K1 TO K50:NEXT DELn 

Y 
FN 670 POSITION K7,K15:? "4.":S0UND KO,KO 

,KO,KO:FOR DELAY=K1 TO K50:NEXT DELAY 
GM 680 NEXT I 
ZU 690 RETURN 

HX 70O POSITION 36,K15:? "U":RETURN 
BP 710 POSITION 36,K15:? "n":RETURN 
AJ 720 POSITION K5,K9:? " 

"iPOSITION K7,K13:? 
": RETURN 
GA 730 POSITION K3,K3:? " 

"iPOSITION K10,K9:? 
■ ■ ii 

OS 740 POSITION K10,Kll!? " 

"IPOSITION K10,K13:? " 

II 

FT 750 POSITION K10,K15:? " 

■i ; RETURN 
DM 760 FOR I=KO TO K21:P0SITI0N KO,I:? "| 

|": NEXT I 
HB 770 POSITION K0,K5:? "h 



BO 780 POSITION K0,K17:? " 



SP 790 POSITION K0,K21:? " >■ 



!■■ 



TO 800 POSITION KO,KO:? " r 



GU 810 POSITION K12,K1:? 
NJ 820 POSITION K11,K6:? " 



A TRIVIA QUIZ 
MULTIPLE CHOICE 
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LCI 838 P05ITI0N 35,K12:? 

OS 840 POSITION 35,K13:? 

DB 850 POSITION 35,K14:? 

DM 860 POSITION 35,K15:? 

UC 870 POSITION 35,K16:? 

ZU 880 RETURN 

OX 890 POKE 54286, 192:G0SUB 1188:G05UB 11 

70 
HZ 900 POSITION K3,K3:? " 

PO 910 POSITION K10,K3:? "RIGHT ";B;" H 

RONG " " C 
KK 920 P = B + C:Q = B/P: (1=0*100 
PD 930 IF SC0RE>H5C0RE THEN HSCORE=SCORE : 

POSITION 34, K7:? HSCORE 
BN 940 IF Q<K50 THEN POSITION K7,K9:? "YO 

U NEED A TRIVIA CLASS" : GOTO 1000 
UG 950 IF Q>=75 THEN 970 
JI 960 IF Q>=K50 THEN POSITION K9,K9:? "P 

RETTY GOOD, STUDY MORE ":GOTO 1000 
UM 970 IF Q>=90 THEN 990 
VA 980 IF Q>=75 THEN POSITION K9,K9:? "GR 

EAT - ALMOST PERFECT ":GOTO 1000 
IM 990 IF Q>=90 THEN POSITION K5,K9:? "GR 

EAT!!! GO TO HEAD OF CLASS" 
DC 1000 GOSUB 1760 
AG 1010 POSITION K7,K13:? "DO YOU WISH TO 

PLAY AGAIN" 

ZA 102O POSITION K2,K2 2:? "OliLU" : POSITIO 

N K20,K22:? " 33EED " 
GO 1030 FOR I = K1 TO K50 
SI 1049 IF PEEKCK53279)=K3 THEN GRAPHICS 

0:END 
GG 1050 IF PEEKtK53279J=K6 THEN GOSUB 113 

OlGOSUB 72O:B=K0:C=K8:GOSUB 1180:GOSUB 
1330IGO5UB 1490:G0SUB 1350:G0T0 130 
FH 1060 NEXT I 
ND 107O POSITION K2,K22:? "START" : POSITIO 

N K20,K22:? "OPTION" 
HD 108O FOR I=K1 TO K50 
SK 109O IF PEEKCK53279)=K3 THEN GRAPHICS 

0: END 
HP 1100 IF PEEKCK53279J=K6 THEN GOSUB 113 

OlGOSUB 730:B=K0:C=KO:GOSUB 1180:G0SUB 
1330:G0SUB 1490IG05UB 1350:G0T0 130 
EU 1110 NEXT I 
HW 1120 GOTO 102B 
YP 1130 POSITION K2,K22:? "START" : POSITIO 

N K20,K22:? "OPTION":RETURN 
PB 1140 GOTO 1130 
RR 1150 POSITION K7,K9:? "1 .": POSITION K7 

,Kll:? "2." 
BB 1160 POSITION K7,K13!? "3 .": POSITION K 

7,K15:? "4.":RETURN 
NA 1170 FOR I=K9 TO K15:P05ITI0N K9,I:? " 

ii ; RETURN 
AL 1180 FOR I = K9 TO K15:P05ITI0N K3,I:? " 

":NEXT I:RETURN 
NO 1190 CT=INTfRNDCK0J*CNTJ 
MT 120O IF CT=K0 THEN 1190 
YZ 1210 IF XXX=CNT THEN 890 
LF 1220 IF XX=CNT-K1 THEN CT=CNT : HXXrCNT 
AM 1230 IF F1$CCT,CT)= ,, X" THEN 1190 
CY 1240 A$=A1$CCT*K30-K29J 
CE 1250 B$=B1$CCT*K20-K19) 
CW 1260 C$=C1$ CCTKK20-K19J 
DO 1270 D$=D1$£CT*K20-K19J 
EG 1280 E$=E1$CCT»K20-K19> 
LX 1290 F$=Fl$tCT,CT) 
SS 1300 F1$(CT,CT3="K" 
UK 1310 KK=XX+K1 
AL 1320 RETURN 
ZQ 1330 A=K0;B=K0: C=KO:D=KO: A1=K0:P=KO:G= 

K0:R=KO:CT=KO 
AR 1340 RETURN 
DI 1350 INPUT ttKl,A$,B$,C$,D$,E$,F$ 



ZZZZZZZZZZZZZZZZZZZZZZZZZZ 



00 1360 IF AS 

BBBB " THEN 1460 



KV 1370 CNT=CNT+K1 

IZ 1380 IF CNT=2O0 THEN 1460 

KD 1390 A1$£CNT*K30-K29J=A$ 

IZ 1400 B1$CCNT*K20-K19)=BS 

KF 1410 Cl$tCNT*K20-K19)=C$ 

LL 1420 D1$CCNT*K20-K19)=D$ 

MR 1430 E1$CCNT*K20-K19)=ES 

LX 1440 F1$CCNT,CNTJ=F$ 

RI 1450 GOTO 1350 

OP 1460 SC0RE=K8:P0SITI0N K34,K6:? " 

":POSITION K34,K6:? "O" 
AM 1470 CLOSE «K1 
BF 1480 RETURN 
GY 1490 POKE 54286, 64 : CT=8 : CNT=0 : XX=KO : XX 

H=KO:CLOSE BKHOPEN ttKl, K4, KO, FILElS : R 

ETURN 
YH 1500 GRAPHICS KOiPOKE 752,K1:P0KE 710, 

K0:P0SITI0N K10,K10:? "20 Seconds plea 

se. . ." 
CF 1510 FOR N=KO TO 99 : READ X:POKE 1664+N 

X : NEXT N 
UK 1520 C0LTAB=1712:LUMTAB=C0LTAB+24 
OL 1530 X=U5RC1693) 
BX 1540 POKE 512,128 
JJ 1550 POKE 513, K6 

JX 1560 D5TART=PEEKC560)+256*PEEKC561J 
MT 1570 FOR N=DSTART+K6 TO DSTART+28 
XY 1580 POKE N,130 
ID 1590 NEXT N 
SN 160O POKE DSTART+3,194 
CC 1610 POKE 54286,192 
MP 1620 PRINT CHR$tl25) 
TJ 1630 POKE 710,PEEKCC0LTAB) 
KD 1640 POKE 789,PEEKCLUMTABJ 
BA 1650 RETURN 
01 1660 DATA 72,138,72,174,156,6,189,176, 

6,141 
IG 1670 DATA 10,212,141,24,208,189,200,6, 

141,23 
ZU 1680 DATA 208,238,156,6,104,170,104,64 

,18,104 
NW 1690 DATA 169,7,160,168,162,6,32,92,22 

NO 170O DATA 169,1,141,156,6,76,98,228,14 

4,144 
MM 1710 DATA 144,144,144,144,196,196,196, 

196,196,196 
PW 1720 DATA 196,196,196,196,196,64,64,64 

,64,64 
IS 1730 DATA 2,8,12,12,12,12,12,12,12,12 
MK 1740 DATA 12,12,12,12,12,12,12,12,12,1 

2 
AA 1750 DATA 12,12,12,12,6,6,0,0,8,8 
RM 1760 RESTORE 1888 
EP 1770 FOR I=K1 TO 24 
SK 1780 READ PO, Pi, P2, P3, DUR 
MM 1790 POKE K540,DUR 
IM 18O0 SOUND K8,P8,K18,K12 
JS 1810 SOUND K1,P1,K18,K12 
KY 1828 SOUND K2, P2, K18, K12 
ME 1838 SOUND K3, P3, K10, K12 
UR 1848 IF PEEKIK548J <>K8 THEN 1848 
FU 1858 NEXT I 
PF I860 SOUND K8,K8,K0,K0:SOUND K1,K8,KB, 

KOISOUND K2,KO,K0,K0:SOUND K3,KO,K0,K8 
BK 1870 RETURN 
AN 1880 DATA 108,0,0,8,10,102,8,8,8,18,96 

,243,8,8,10,68,121,162,8,28,96,0,0,0,1 

8,60,162,8,8,28,96,121,136,8,20 
US 1890 DATA 60,0,0,8,20,60,182,0,0,20,60 

,121,144,0,28,68,193,8,8,18,68,193,8,8 

,10,53,121,162,8,18,58,121,162,8,18 
WQ 19O0 DATA 47,162,8,8,18,60,162,0,0,10, 

53,96,121,0,18,47,96,121,8,18,47,162,8 

,8,18,64,162,8,8,10,53,91,128,0,20 
IJ 1910 DATA 60,96,121,8,28,68,162,8,8,28 

,0,243,0,8,38 
GC 1928 POSITION K3,K6:? "TIME=" : POSITION 
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28, K6:? "5C0RE=":P05ITI0N 25, K7:? "HI 

-5C0RE=":P0SITI0N K8,K6:? TM 
IV 1930 POKE K540,K68 
XV 1940 IF PEEK(K540)=K0 THEN TM=TM~K1:P0 

5ITI0N K8,K6:? POSITION K8,K6:? T 

M:50UND KO,K128,K10,K10:GOTO I960 
SY 1950 IF PEEKCK764J <>K255 THEN 1990 
KJ I960 IF TM=KO THEN 2018 
UF 1970 GOTO 1940 
KH 1980 FOR J = K1 TO K2 : NEXT JiSOUND KO,K0 

,KO,KO 
KK 1990 IF PEEKCK764JOK255 THEN ANS=PEEK 

C764) :RETURN 
SG 2O0O GOTO 1930 
SB 2010 SOUND KO,K96,Ki0,K12:GO5UB 2030:A 

N5::53: POSITION K8,K6:? POP :G0T0 

240 
AG 2020 RETURN 

JR 2030 FOR K=Ki TO K30:NEXT K 
NH 2040 SOUND KO, KO, KO, KO : RETURN 
EF 2050 IF TM=KO THEN RETURN 
ZY 2060 TM=TM-Kl:P05ITI0N K8,K6:? " " : PO 

SITION K8,K6:? TMiSOUND KO, K128, K10, K6 

IFOR I=Ki TO K3:NEXT I 
SS 207O SOUND K0,K0,K0,KO 
FY 2080 FOR I=K1 TO K10:NEXT I 
XB 2090 SC0RE=SC0RE+K1:P0SITI0N K34,K6:? 

SCORE:SOUND KO, 162, K10, K6 ! FOR I=K1 TO 

K3.-NEXT IiSOUND KO,KO,KO,K0 
FP 2100 FOR I=K2 TO K10 : NEXT I 
PS 2110 GOTO 2O50 
AI 2120 RETURN 
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by Jerry Lemaitre 



In this game, you're the lowly Anthort, struggling to de- 
fend your planet against the evil Zorcron empire. If the 
rock-eating Zorcrons manage to penetrate your defenses, 
they'll gobble up your entire planet. To prevent this, you're 
armed with the mystical Fyreballs, which ignite anything 
in their path. You may have three of these flying at one 
time, but shoot carefully! 

You're not the only one with weapons, though. The Zor- 
crons have discovered machinery! There are three types 
of machines that they build with the iron ore they can't 
digest. 

Their Eggbarge is a bulky space vessel which incubates 
Zorcron eggs during flight. When it reaches its destina- 
tion, the newly hatched Zorcrons help to replenish the 
fighting troops. 

A Whizzer is a warp-speed vessel which transports and 
launches the most deadly Zorcron offense of all — the Zing- 
bomb. "You'll know the Zingbombs when you see them. 
These menaces head straight for your planet at incredible 
speeds. On impact, they create a shock wave that will pul- 
verize your delicate Anthortian insides. 



Now, don't get me wrong. This isn't just another one- 
dimensional shoot- 'em-up. Constantly changing colors and 
totally animated characters add to the visual appeal. You 
can move your Anthort in eight (count 'em, eight) direc- 
tions. There's also horizontal wraparound, so you're not 
confined by the sides of the screen. 

Even though Invasion III is written in BASIC, there can 
be as many as twenty-three characters on-screen at a 
time — at speeds that'll make you sweat! Enjoy! PI 

Jerry Lamaitre has owned his Atari 400 for four years. 
He's very interested in robotics and artificial intelligence, 
and sells his own programs and accessories as a small 
mail-order business. 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 



Listing 1. 
BASIC listing. 

UK ISO G05UB 570 

HP 110 SC=K0:MEN=K2:G05UB 720 
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AE 128 POKE P+SCR,K2:IF STICK CKO) =K15 AND 

5TRIGIK0) THEN 120 
OD 130 FOR Z=K0 TO K15 : PI=P : S=Mt5TICK tKO) 

) :P=P+5:P=P-5*tP>439 OR P<40) 
00 140 C=INTtK5*RNDfK0)) :5ETC0L0R C,Z,K8» 

(C<K4) 
PN 150 CH= NOT CH:P0KE 756, CH CCH) : L=PEEK C 

P+5CR):P0KE P1+5CR,K0:P0KE P+SCR,K2:IF 
L AND LOK2 THEN 410 
XV 160 L=KO:IF NOT STRIG CKO) THEN GOSUB 

330 
ZZ 170 FOR A=KO TO K2:F1=FCA) 
RJ 180 IF Fl THEN POKE Fl+SCR, KO : F1=F1~K2 

0:FL=PEEKCF1+SCR) : IF FL THEN F=FI:F1=K 

OiGOSUB 350 
EB 190 IF Fl THEN POKE F1+5CR,132 
5Z 200 FCA)=F1:NEXT A 
SB 210 IF ZPCZ) THEN ZPI=ZP CZ) : ZP CZJ = ZP CZ 

)+INTCK3*RNDCK0)+19) : L=PEEK CZP CZ) +5CR) 

iPOKE ZP1+5CR,K0:P0KE ZP CZ) + SCR, 195 
NB 220 IF L THEN GOSUB 460 
ZB 230 IF NOT E THEN IF RND CKOXO . Ol THE 

N E=K20:EM=K1:S0UND Kl, E, 12, K8 : IF RND C 

K0XO.5 THEN E=39:EM=-K1 
«G 240 IF E THEN E=E+EM:POKE E+5CR,K6:P0K 

E E-EM+SCR,KO:IF E=K20 OR E = 39 THEN PO 

KE E+SCR,K0:E=KO:SOUND K1,KO,KO,K0 
ZN 250 IF E THEN IF E>21 AND E<38 THEN IF 
NOT ZPCE-22) THEN ZP CE-22) =E+K20 : POK 

E ZPCE-22)+SCR,195:50UND K1,E,12,K8 
JD 260 IF W-KO THEN IF RNDCKQXO.Ol THEN 

W=K20:WM=K1: SOUND K2, W, 10, 10 : POKE 77,K 

G:IF RNDCKGX0.5 THEN Wr39 : WM=-K1 
KN 270 IF W THEN H=W+WM:POKE W+SCR,I33:P0 

KE W-WM+SCR,KO:IF W=K20 OR W=39 THEN P 

OKE M+SCR,K0:M=KO:SOUND K2,KO,K0,KO 
VX 280 IF N THEN IF NOT B AND RNDCKOXO. 

06 THEN B=W+K20: SOUND K3,B,K4,12 
ML 290 IF B THEN SOUND K3, B, K4, 12 : B=B+K20 

:BL=PEEKCSCR+B) IPOKE SCR+B,71:P0KE SCR 

+B-K2O,K0 
XN 3O0 IF B THEN IF BL=K2 OR B>439 THEN S 

OUND K3,K0,K0,K0:P0KE SCR+B, KO : B=KO : GO 

TO 410 
FZ 310 IF B THEN IF BL=I32 THEN FL=71:G0S 

UB 390 
KE 320 NEXT Z:GOTO 130 
ZK 330 FOR J=KO TO K2:IF NOT F C J) THEN F 

OR I = KO TO 3HP0KE 53761, I:NEXT I:FCJ) 

=P-K20:RETURN 
NB 340 NEXT JiRETURN 
DC 350 IF FL=195 THEN FOR I = K0 TO K15:IF 

ZPCI)=F THEN SC=5C+25:G0SUB 530:Z=I:G0 

SUB 460 

vz 360 if fl=195 then next ilreturn 

un 370 if fl=133 then sc=sc+1oo0 : gosub 53 

0:0=m:m=ko: sound k2,ko,ko,ko:g0to 550 
fw 380 if fl = k6 then sc=sc+1o0o : gosub 530 

:q=e:e=ko:50UND ki,ko,ko,ko:goto 550 
nl 390 if fl=71 then sc = sc + 50o : gosub 530: 

q=b:b=ko: sound k3, ko, ko, ko : goto 550 
za 40o return 
eh 410 poke p+5cr,k8:f0r i=k1 to k20:s0un 

d k3*rndck0) ,2o0*rndcko) ,12,k8:next i 
zv 420 men=men-k1 :poke p+scr,9:f0r i = k1 t 

K20 
YD 430 SOUND K2*RND CKO) , 2O0*RND CKO) , 12, K8 

iNEXT I.-FOR I=K0 TO K3:50UND I,K0,KO,K 

OlNEXT I 
XJ 440 POKE P+SCR,KO:F0R I = KO TO 100 : 5ETC 

OLOR K4*RND (K0J , K15*RND tKOJ , K15*RND CKO 

J iNEXT I:IF MEN<K0 THEN 500 
CY 450 GOSUB 720:G0T0 120 
YL 460 IF ZPCZ)rK0 OR L=195 THEN RETURN 
NX 470 IF L=74 OR L=75 OR L=K2 THEN 410 
GU 480 POKE ZPCZ)+SCR,200:FOR I=KO TO K15 

iSOUND KO,K0,K4,I:NEXT IiPOKE ZPIZJ+5C 

R,201 



YU 490 FOR I=K0 TO K15:S0UND K0,K0,K5,I:N 

EXT IlPOKE ZPCZ)+SCR,KO:ZPCZ)=KO:RETUR 

N 
UM 500 GOSUB 720:P0SITI0N K5,K6:? »K6:"Ga 

CaOvaa! ,, : POSITION K5,K8:? ttKe^'PQBsS 

GBrE-lPOKE 17+SCR,K0 
DI 510 IF STRIG CKO) THEM 510 
LZ 520 GOTO 110 
UI 530 POSITION K4,23:? ttK6;SC:IF 5C>H5C 

THEN HSC=5C: POSITION 14,23:? ttK6;HSC 
ZJ 540 RETURN 
XO 550 SOUND K2,34,1O,10:FOR I=K0 TO 16:F 

OR J=KQ TO KliPOKE SCR+Q, K8+J : SOUND Kl 

,I+J,10,11+J:NEXT JlNEXT I 
FU 560 POKE SCR+Q, KOi SOUND Kl, KO, KO, KO : SO 

UND K2,KO,K0,KO:RETURN 
EL 570 K1=1:K2=2:K3=3:K4=4:K5=5:K6=6:K8=8 

:K15=15:K20=2O 
YN 580 GRAPHICS 18:P05ITI0N K4,K2:? ttK6;" 

InCESini] ] iD":P05ITI0N 9,K5:? ttKeVby" 

:POSITION K3,7 
ZX 590 ? «K6j M JERRY LEMAITRE" : COLOR 138 : P 

LOT K0,KO:DRAWTO 19,K0:DRAWT0 19,11:DR 

AWTO KO,ll:DRAWTO KO,K0 
KQ 6O0 DIM CHCK1),MCK15),ZPCK15),FCK2),J$ 

(39) !MCK5)=21:MtK6)=-19:MC7)=Kl:MC9)-l 

9 : MC10) =-21 : MC11) =-Kl : M C13) =K20 
AB 610 MC14)=-K2O:MCK15)=K0:FOR I=Ki TO 3 

9:READ A: JSCI)=CHR$CA) : NEXT I 
TK 615 DATA 104,104,133,215,104,133,214,1 

04,133,217,104,133 
LU 620 DATA 216,104,133,218,104,170,160,0 

,177,214,145,216,200,208,4,230,215,230 

,217,202,208,242,198,218,16,238,96 
DX 630 CHCKO)=PEEKC106)-K8:CHtKl)=CHtK0)- 

K8 : I=USRC ADR CJ$) , 57344, CH tKO) *256, 511) 
XH 640 A=CHCK0)*256:FOR I = K6 TO 95 : READ B 

:POKE A+I,B:FOR J=K0 TO K3:SETC0L0R J, 

K15*RNDCK0) , J+J+K4SNEXT JlNEXT I 
HA 650 I=USRCADRCJ$) , CH CK0)*256, CH CK1)*25 

6,511) 
HY 660 A=CHCK1)*256:F0R 1=16 TO 63:READ B 

:POKE A + I,B:NEXT URETURN 
QH 670 DATA 0,0,0,0,0,0,0,0,7,15,30,56,48 

,0,192,192,129,90,60,219,126,36,72,144 

,129,129,165,219,126,60,36,36 
01 680 DATA 0,20,8,20,8,0,8,0,255,129,189 

,181,181,181,133,253,60,102,255,24,255 

,171,255,126 
NO 690 DATA O, 14, 24, 24, 24, 60, 60, 24, O, 34, 2 

G,104,22,4G,68,O,65,34,0,192,3,0,68,13 

0,0,16,60,127,255,255,255,0 
00. 7O0 DATA 0,0,65,225,251,255,255,0,66,9 

0,60,219,126,36,18,9,0,0,36,90,255,189 

,153,153,0,8,20,8,0,8,8,8 
MA 710 DATA 191,161,173,173,173,189,129,2 

55,60,102,255,24,255,213,255,126,0,112 

,24,24,24,60,60,24 
QK 720 GRAPHICS 17:P0SI TI0N KO,KO:? 8K6;" 

■■GI07jHX^IMIj^■■ ,, : POSITION Kl,23:? 
ttKb : " fTt\ "; bC: P OSITION 10,23 
ID 730 ? ttK6;"[33aB"jHSC: POKE 756,CHCK0):F 

OR I = KO TO 19:C0L0R INT CK2*RND tKO) +10) 
CK 740 PLOT I,22:S0UND KO, I+I+I, 10 , 10 : NEX 

T I 
ZO 750 SOUND KO,K0,K0,KO:5CR=PEEKt88)+256 

*PEEK t89) :P=350:F0R I=KO TO K15:ZPCI)= 

KOlNEXT ISIF MEN THEN POKE 17+SCR,130 
ZF 760 IF MEN=K2 THEN POKE 18+SCR,130 
CO 770 B=K0:W=K0:E=K2O:EM=Kl:FtK0)=KO:FtK 

1) =K0 : F tK2) =K0 : RETURN 
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by David Huff 



The game of Dragon Chase depends more on a sharp 
mind than on quick reflexes. The object here is to rescue 
the princess before an evil dragon can reach her. 

In order to save the princess, you must remove the black 
castle which surrounds her. To accomplish this feat, you 
must find certain objects — such as diamonds, swords and 
rings. Unfortunately, these items are hidden from view un- 
til you move over them. And, if the dragon reaches your 
fair lady, the game is over. 

The game rules. 

You begin each level in the lower left corner, marked 
by a square pink cursor. As you move with the joystick, 
objects hidden below become visible. A row of the things 
you must find is seen at the upper left, and you must un- 
cover the objects in the order shown. When you locate one, 
stay over it until its color changes, then move on to find 
the next one. After you've retrieved all the required items, 
the castle is automatically removed. To rescue the prin- 
cess and advance to the next level, move your pink cur- 
sor over her. 

Also hidden are various objects which can help or hin- 
der you. The squares can make the whole field visible for 
a few seconds, giving you time to locate other needed 
items. 

Wild cards are also randomly hidden. These are marked 



with a W. Finding one is the same as locating the next 
object you were searching for. 

Also hidden are dragons. If you hover above one, your 
movement is stopped — and the dragon takes another step 
toward the princess. A tombstone marks this event. Some- 
times the dragon may be sleeping, in which case you can 
step right over him. 

For help in finding things, a scanner is provided. Press 
the fire button to activate it, and a portion of the screen 
around you becomes visible. Using the scanner costs you 
10 points and advances the dragon one step. 

Each round of Dragon Chase has five levels. On higher 
levels, the dragon moves faster — while you must find more 
objects. 

Scores are tallied as follows. You receive 200 points for 
saving the princess, or 100 points for finding an object. 
You lose points in this way: 50 off for finding a dragon, 
5 are subtracted for advancing the dragon, and using the 
scanner eats up 10. 

About the program. 

Dragon Chase takes advantage of Atari's character col- 
or assignment in graphics mode 2 . The same character is 
easily displayed in different colors, and there are sixty- 
four characters in the graphics 2 character set. You have 
a choice of four colors. In choosing one, a specific num- 
ber is added to the character number, as shown in Figure 1. 

To display a character, POKE its number into the dis- 
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play memory, -adding the indicated amount to choose a col- 
or register. Character numbers are shown on page 55 of 
Atari's BASIC Reference Manual. 

Figure 1. 



COLOR 



Character No. 

0-63 



REGISTER 
708 709 

+0 +64 



710 
+ 128 



711 

+ 192 



Dragon Chase uses a redefined character set at Line 
1000. Line 340 pokes random characters into display mem- 
ory. Their number has 192 added to it, specifying color 
register 711. 

Similarly, Line 280 randomly selects the characters for 
you to find; by adding 128 to them, color register 710 is 
chosen. 

The princess awaits your help. 

David Huff, a D.D.S. , is currently studying for a specialty 
degree in Orthodontics. He's had his Atari 1200XL for 
three years and is currently working on a program for or- 
thodontic x-ray analysis. 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 



Listing 1. 
BASIC listing. 

XY 10 REM DRAGON CHASE 

RA 15 REM DAVID E. HUFF 

LF 20 GRAPHICS 18 : PMBASE=PEEK 1106) -16 : CHS 

ET=256*CPMBASE+8J 
ST 25 DIM E$(50) 
HS 30 DM=PEEKC88J+256*PEEKC89> :DL=PEEKC56 

0J+256*PEEKC561J 
0L 40 P0=PMBASE*256+5i2:Pi=PO+i28:P2=Pi+l 

28:P3=P2+128 
AT 50 POKE 54279, PMBA5E:P0KE 53277, 3:P0KE 

559,46 
OV 60 POKE 53257, l:P0KE 53258,1:P0KE 5325 

9,3 
II 70 POKE 712,20:P0KE 709,12:P0KE 708,20 


HU 80 POSITION 4,5:? «6;"dpagon chase" 
WK 90 G0SUB 1000:G0SUB 1500 
PP 100 REM SET UP DISPLAY LIST INTERRUPT 
CD 110 POKE DL+15,135!P0KE DL+16, 160 : POKE 

DL+17,7!P0KE DL+18,65 
BP 120 POKE DL+19, PEEK £5601 :P0KE DL+20,PE 

EKC561J 
BM 130 POKE 512,197:P0KE 513,6:P0KE 54286 

,192 
KS 140 REM INITIAL VALUES 

HO 150 DIF=5O:SCORE=0:LEVEL=0:FIELD=2:R=i 
VM 160 REM START NEW LEVEL HERE 
ftK 170 CLEAR=USRCADR(E$J , PMBA5E*256> 
M0 180 LEVEL=LEVEL+1:FIELD=FIELD+1:IF FIE 

LD = 8 THEN G0SUB 2400 
UB 190 POSITION 0,0:? tt6; M * M 
PZ 200 POSITION 1,11:? 86j M R0UND ";R;" 

LEVEL ", "LEVEL 
AI 210 REM COLORS 
CG 220 POKE 623,0:P0KE 705,0:P0KE 706,88: 

POKE 707,34:P0KE 708,12 



MB 230 POKE 709,200:P0KE 710,120:P0KE 711 

,20:P0KE 712,12 
OU 250 REM SET UP FIELD 
BM 260 FOR 1=20 TO 219:P0KE DM+I, 1+192 : NE 

KT I 
TH 270 FOR 1=0 TO FIELD-1 

CI 280 POKE DM+I*2, INT CRNDCOJ*10) +2+128 
GK 290 NEXT I 
TE 300 FOR 1=0 TO 60 
OU 310 RP=INTCRNDt0)*20G)+2O 
01 320 RC=INT(RNDC0)*12J+2+192 
YF 330 SOUND 2,RP,10,4 
SX 340 POKE RP+DM,RC 
GD 350 NEXT I 
HV 360 SOUND 2,0,0,0 
NE 370 FOR 1=1 TO 10 : RPD=INT (RND COJ*200) + 

20:P0KE DM+RPD,15+192:NEXT I 
PR 380 FOR 1=1 TO 3 : RPW=INT CRND f 0) *200J +2 

0:P0KE DM+RPW,20+192:NEXT I 
TB 390 POKE 712,20:REM HIDE CHARACTERS 
UP 400 GOSUB 1900 
TT 410 GOSUB 1700 

IM 450 C0UNT=0:CHR=PEEKCDM+C0UNTJ-128 
CO 460 DRAGON=0:HID=0 
TS 470 GOSUB 2500 

JZ 50O REM START MAIN PROGRAM LOOP 
VD 505 POKE 53278,1 
MU 510 POKE 1790,1 

XU 515 IF PEEKC5326i)=4 THEN 2000 
MN 520 MEM=DM+20+2O/8*CPEEKC2O3)-23)+CPEE 

K(205)-48)/8 
IC 525 CHR1=PEEKIMEM)-192 
ZF 530 IF CHR1=CHR THEN GOSUB 700 
ZD 535 IF CHR1=20 THEN GOSUB 700 
BM 540 IF CHR1=15 THEN GOSUB 800 
CJ 545 IF CHR1=-174 THEN GOTO 900 
EZ 550 IF CHR1=12 THEN POKE 712,16:F0R 1= 

TO 350:S0UND 0, 350-1, 10, 10 : NEXT I : PO 

KE 712,20:P0KE MEM, 12+128 
OU 555 IF 5TRIG(0)=0 THEN GOSUB 2100 
LL 560 LOOP=LOOP+l:P0KE 77,0 
HT 570 IF L00P<DIF THEN 515 
CP 580 L00P=0:G05UB 600 
OJ 590 GOTO 515 
HU 600 REM MOUE DRAGON 
KV 610 FOR 1=15 TO 17:P0KE DM+20+DRAG0N, I 

:F0R J=0 TO 15:S0UND 2, 100, 12, 10 : NEXT 

JlSOUND 2,100+1, 12, 20-IlNEXT I 
YR 620 FOR 1=16 TO 15 STEP -1:P0KE DM+20+ 

DRAGON, I:F0R J=0 TO 15:50UND 2,100,12, 

10:NEXT JiSOUND 2,100+1,12,20-1 
GC 630 NEXT I 

RW 640 FOR I=0 TO 15 : NEXT I 
BC 650 5C0RE=SC0RE-5:G0SUB 2500:S0UND 2,0 

,0,0 

RM 660 POKE DM+20+DRAG0N,19:P0KE DM+21+DR 

AGON, 15 
OV 670 DRAG0N=DRAG0N+1 

NT 680 IF DRAG0N=18 THEN POP : GOTO 2200 
ZU 690 RETURN 
HD 700 REM YOU FOUND ONE 
MU 710 IF CHR+64<0 THEN RETURN 
YL 720 SOUND 9,10,10,10 
PH 730 POKE DM+C0UNT,CHR+64:P0KE MEM, CHR+ 

64 
OB 740 C0UNT=C0UNT+2 
MV 750 CHR=PEEKCDM+C0UNT>-128 
U6 755 GOSUB 2500 
PK 760 FOR 1=0 TO 20:NEXT I 
UV 770 5C0RE=SC0RE+100:G0SUB 250O:S0UND 

,0,0,0 

PX 780 HID=HID+l:IF HID=FIELD THEN GOSUB 

18O0 
ZV 790 RETURN 

VD 800 REM YOU FOUND A DRAGON 
MI 810 POKE 1790,0 
JR 820 FOR 1=15 TO 17:P0KE MEM,I:FOR J=0 

TO 15:S0UND 2,10O,12,1O:NEXT JiSOUND 2 
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,100 + 1, 12, 20-UNEXT I 
TP 825 GOSUB 600 
NA 830 FOR 1=16 TO 15 STEP -UPOKE MEM, I: 

FOR J=0 TO 15:S0UND 2, 100, 12, 10 : NEHT J 

:50UND 2,100+1, 12, 20-I:NEKT I 
SA 850 FOR 1=0 TO 15 : NEHT I 
VI 860 SC0RE=SC0RE-5Q:G0SUB 2506 
OG 870 POKE MEM,14:30UND 2,0,0,0 
NL 880 POKE 1790,1 
ZH 890 RETURN 

WA 900 REM YOU SAVED PRINCE55 
MJ 910 POKE 1790,8 

QD 920 FOR 1=1 TO 10:SOUND 0,10*1,10,1 
IR 930 FOR K=l TO 5:NEKT KiPOKE 712, 20 
RU 940 FOR J = 14 TO O 5TEP -1 
GC 950 SOUND 0,10, 10, J 
ZN 960 SOUND 1 , 14 , 10, J+2 : NEXT J 
XW 970 POKE 712,12:SC0RE=SC0RE+20:G0SUB 2 

500:NEXT I 
EE 980 SOUND 6, O, O, : SOUND 1,0, 0,0 
OU 990 GOTO 160 

JB 995 REM REDEFINED CHRACTER SET 
II 1080 FOR 1=0 TO 51l!P0KE CH5ET+I, PEEK C 

57344+1) :NEXT I 
NT 1010 POKE 756,CHSET/256 
VG 1020 READ N : IF N=-l THEN RETURN 
DZ 1030 FOR I=0 TO 7:READ D:P0KE CH5ET+N* 

8+I,D:NEXT I:GOTO 1020 
GO 1035 DATA O, O, O, O, O, 0, 0, 0, O 
AG 1040 DATA 1,0,0,0,24,24,0,0,0 
TO 1050 DATA 2, 0, 126, 90, 126, 126, 36, 60, O 
NT 1060 DATA 3,73,42,28,119,28,42,73,0 
GI 1070 DATA 4,165,66,165,24,24,165,66,16 

5 
YK 1080 DATA 5, 0, 24, 60, 126, 126, 60, 24, O 
LP 1090 DATA 6,0,24,36,66,66,36,24,0 
ZG 1100 DATA 7,0,2,4,8,80,32,80,0 
YN 1110 DATA 8,0,54,127,127,62,28,8,0 
OB 1120 DATA 9,195,195,36,24,24,36,195,19 

5 
ZR 1130 DATA 10,0,224,160,255,255,170,234 

,0 
ZG 1140 DATA 11,60,126,219,255,90,102,60, 


IB 1150 DATA 14,60,66,153,189,153,153,129 

,255 
RE 1160 DATA 15,112,208,255,170,213,127,0 

,0 
FR 1170 DATA 16,112,208,255,234,128,213,1 

27,0 
SF 1180 DATA 17,112,208,255,234,128,208,1 

17,31 
ZY 1200 DATA 18,60,60,24,126,24,24,36,66 
OK 1210 DATA 19,24,60,127,255,255,254,68, 

68 
KI 1220 DATA 12,126,129,153,165,165,153,1 

29,126 
DD 1230 DATA 13,90,189,90,231,231,90,189, 

90 
RV 1240 DATA 20,0,195,195,219,255,231,195 

,0 
DU 1250 DATA 21,0,0,0,240,152,240,176,152 
GN 1260 DATA 22, O, O, O, 234, 170, 234, 138, 142 
HI 1270 DATA 23, O, 0, O, 138, 200, 170, 154, 138 
RR 1280 DATA 24,0,0,0,0,0,0,0,0 
G5 1290 DATA 25,0,0,134,135,126,126,100,6 

8 
EK 1300 DATA -1 
ZQ 1495 REM VBLANK ROUTINE 
EE 1500 FOR 1=0 TO 250 : READ D:POKE 1536+1 

,D 
OR 1510 SOUND 2,D,10,4:NEXT I 
FK 1515 FOR 1=1 TO 42:READ D : E$ CI, I) = CHR$ 

CD) iNEXT I 
HR 1520 FOR 1=3 TO 15 
LK 1530 SOUND 2,100,12,1 
VZ 1540 FOR J=15 TO 17 
MX 1550 POKE DM+1O0+I, J: FOR N=0 TO 10: SOU 



ND 1,200, 12, 8:NEXT N 
WV 1560 POKE DM+100+I,19:S0UND 1,0,0,0 
XB 1570 NEXT J:NEXT I 
JC 1580 SOUND 2,0,0,0 
BK 1590 RETURN 
OK 1600 DATA 216,169,0,141,3,210,173,13,2 

08,208,8,173,255,6,240,6,206,255,6,76, 

98,228,169,15,141 
QP 1610 DATA 255,6,173,254,6,240,243,174, 

120,2,224,7,240,14,224,11,240,24,224,1 

4,240,37,224,13,240 
S5 1620 DATA 50, 208, 222, 165, 205, 201, 200, 2 

40,216,24,165,205,105,8,76,76,6,165,20 

5,201,48,240,202,56,233 
BL 1630 DATA 8,133,205,141,2,208,76,138,6 

,165,203,201,15,240,185,32,123,6,56,16 

5,203,233,8,76,115 
LI 1640 DATA 6, 165, 203, 201, 95, 240, 168, 32, 

123,6,24,165,203,105,8,133,203,32,128, 

6,76,138,6,169,0 
PR 1650 DATA 76,130,6,169,240,160,8,145,2 

03,136,208,251,96,169,168,141,3,210,16 

9,96,141,2,210,76,19 
FX 1660 DATA 6,104,104,133,204,104,133,20 

3,104,104,133,205,104,133,207,104,133, 

206,230,208,165,208,201,13,208 
SX 1670 DATA 12,169,213,160,5,145,206,24, 

105,1,136,208,248,160,0,162,6,169,7,76 

,92,228,72,169,26 
CB 1680 DATA 141, 10, 212, 141, 26, 208, 169, 21 

8,141,0,2,169,6,141,1,2,104,64,72,138, 

72,169,224,162,200 
WY 1690 DATA 141,10,212,141,9,212,142,24, 

208,142,26,208,169,197,141,0,2,169,6,1 

41,1,2,104,170,104,64 
SM 1695 DATA 104, 104, 133, 207, 104, 133, 206, 

162,4,169,0,168,145,266,136,208,251,23 

0,207,202,208,246,96 
PL 1696 DATA 104,104,133,204,104,133,203, 

104,104,160,0,145,203,200,192,220,208, 

249,96 
MI 1700 REM CASTLE DATA 
RZ 1710 Y1=17!F0R 1=0 TO 16:READ D : POKE P 

1+I+Y1,D!NEXT I 
NJ 1720 RESTORE 1730 
HJ 1730 DATA 24,153,153,153,255,195,129,1 

29,129,129,129,129,129,129,129,255,255 
00 1740 POKE DM+38,18:P0KE 53249,188 
BC 1750 RETURN 
HZ 1800 REM REMOVE CASTLE 
VN 181G FOR I=0 TO 40: NEXT I 
XG 1820 FOR 1=16 TO O STEP -1 
DB 1830 POKE P1+I+Y1,0 
VX 1840 SOUND 0,10,10,1 
VV 1850 SOUND 1,12,10,1+1 
YK I860 SOUND 2,14,10,1+2 
HG 1870 FOR J=0 TO 5:NEXT J:NEXT I 
ZR 1880 FOR I=0 TO 2:S0UND I,0,0,0:NEXT I 
BQ 1890 RETURN 

FA 1900 REM INITIAL PLAYER POSITION 
RM 1910 Y=95: X2=48:P0KE 53250,X2 
AY 1920 FOR 1=1 TO 8 
UA 1930 POKE P2+I+Y,240:NEXT I 
PI 1940 D=USRC1687,P2+Y,X2,DM+210) 
BG 1950 RETURN 

DU 20OO REM PLAYER TOUCHES CASTLE 
TF 2010 POKE 1790,0 

TV 202O FOR 1=0 TO 80:S0UND 2,127-1,8,6 
OG 2030 POKE P2+I,0:NEXT I 
BJ 2040 GOSUB 1900 
UN 2050 SOUND 2,0,0,0:G0T0 506 
UP 2100 REM SCANNER 
HY 2110 POKE 53251, PEEK C205) -12 : Y3=PEEK C2 

03)-10 
10 2120 FOR 1=0 TO 30:P0KE P3+I+Y3, 255 : SO 

UND 0,I,10,8:NEXT I 
HI 2130 SOUND 0,0,0,0 
XO 2140 GOSUB 600 
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VM 2158 FOR 1=0 TO 15 : NEXT I : 5C0RE=SC0RE- 

5:G05UB 2500 
OM 2160 FOR 1=0 TO 30 : POKE P3+I+Y3, O : SOUN 

D 0,30-1,10, 10SNEXT I 
AS 2165 POKE 53278,1: RETURN 
JF 2200 REM DRAGON GETS PRINCESS 
WP 2210 POKE 1790,0:CLEAR=U5RCADRfE$),PMB 

ASE*256J 
DH 2220 GOSUB 2300 : POSITION 1,11:? «6; M 

PRESS FIRE " 
W 2230 FOR 1=0 TO 35 ! IF STRIGC0)=O THEN 

POP :GOTO 140 
FG 2240 NEXT I 

JT 2260 GOSUB 2300:G0SUB 2500 
WH 2270 FOR 1=0 TO 35:IF STRIGtO)=0 THEN 

POP :G0T0 140 
FS 2280 NEXT I 
QD 2290 GOTO 2220 
UK 2300 FOR J=15 TO 17 
UU 2310 SOUND 3, 186+J, 10, 6 : SOUND 2,185+J, 

10,6 
XH 2320 X=U5RCADRCE$)+23,DM, J) 
PH 2340 FOR I=0 TO 25:NEXT I:NEXT J 
MZ 2350 SOUND 3, O, O, O : SOUND 2,0,0,0 
AY 2360 RETURN 
RN 2400 REM NEXT ROUND 

PI 2410 DIF=DIF-10:IF DIF<10 THEN DIF=10 
GT 2420 FIELD=3:LEVEL=1 
CB 2430 POSITION 0,11:? Be;"*'" 
SJ 2440 POSITION 2,11:? 86;"R0UND ";R;" C 

OMPLETE":FOR I=0 TO 200 STEP 2 
RP 2450 SOUND 0, 254-1, 10, 8 : SOUND 1,252-1, 

10,8 
ZI 2460 SOUND 2, 250-1, 10, 8 : SOUND 3,248-1, 

10,8 
FT 2470 NEXT I 

AB 2480 FOR I=0 TO 3:50UND I,0,O,O:NEXT I 
MZ 2490 R=R+l: RETURN 
PU 2500 REM PRINT SCORE 
DB 2510 IF SCORE<0 THEN SCORE=0 
MM 2520 POSITION 1,11:? 86;" 

":REM 17 SPACES 
XK 2530 POSITION 4,11:? tt6j"5C0RE "JSCORE 
AM 2540 RETURN 
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by Chuck Rosko 



The nuclear industry is looking for an adventurous in- 
dividual who's willing to tackle a high-risk job. Surprise! 
That's you . Your task is to remove the krebs located in the 
reactor cores of the Nittany Memorial Power Plant. A kreb, 
of course, is a uranium pellet which is no longer radioac- 
tive. The krebs inhibit fission, so they must be removed 
and replaced with new radioactive uranium. 

Your joystick (port 1) controls your atomic core scrub- 
ber. Move over each kreb (in green), and your scrubber 
will remove it, replacing it with a radioactive uranium pel- 
let (in red). If you run into any of the radioactive pellets, 
your scrubber will be destroyed. The big spenders of the 
industry are paying you $5.00 for every kreb removed. 

At the bottom right-hand side of the screen is a readout 
of the amount of energy in your scrubber. You must re- 
place all the krebs before your energy runs out, or — 
again — your scrubber will be annihilated. 

You'll start work on each successive core with less ener- 
gy. After you've restored two cores, you'll have to avoid 
the deadly hudnall. This creature, who's trapped inside 
the core, is attracted to the noise of your scrubber and will 
attack it whenever possible. Avoid the hudnall at all costs. 

Whenever your scrubber is destroyed, a chain reaction 
takes place — causing a reactor meltdown. The game (or 
rather, your job) is over after three meltdowns. 



How it works. 

Here's a description of the Krebs removal program. 

Lines 78-85 — update your energy usage. 

Lines 98-100 — the sound routine, heard when you 
hit the core wall. 

Lines 108-120 — scoring routine. 

Lines 198-285 — moves the hudnall. The logic rou- 
tine is a modified version, adapted from the Basic 
Training series (this one was in issue 18). 

Lines 288-640 — reads the joystick and moves the 
scrubber, first checking what the scrubber will hit, 
then going to the appropriate subroutine. 

Lines 748-770 — the scrubber is destroyed; the core 
melts down; and the number of scrubbers decreases. 

Lines 773-795 — game-over message. Returns you 
to the title page. 

Lines 798-820 — core-is-secured routine. Allotted 
energy decreases, so the difficulty level increases. 

Lines 848-860 — plot the scrubber's initial position 
(random). 

Lines 998-1040 — plot 30 krebs (random). 

Lines 1098-1150 — plot 10 uranium pellets (ran- 
dom). 

Lines 10000-10030 — initialize, then start game. 

Lines 29098-30060 — draw main screen. 

Lines 30198-30260 — draw title screen and initial- 
ize variables. 
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Lines 31098-32239 — redefines two character sets. 

Lines 32000-32040 — move character set from ROM 
to two different locations in RAM. 

Lines 32050-32230 — read in data for the first 
character set. 

Lines 32231-32239 — read in data for the second 
character set. 

Table 1. 



LIST OF VARIABLES 


BX.BY 


Hudnall's X- and Y-position 


BUG 


Flag; if less than 5, hudnall moves. 


CLOCK . 


Timer; used to determine when to decrease 




energy level. 


EN 


Scrubber's energy level. 


LEVEL .... 


. . Amount of energy you initially enter the core 




with. 


PC 


Flag; indicates the number of krebs cleared. 


SC 


.... Score. 


SCRUB . 


. . . Number of scrubbers or lives. 


XVYV 


.... Holds direction hudnall is to move. 


X.Y 


. . . Scrubbers X- and Y-position. 



Krebs removal was written without player/missile 
graphics, and with only two short machine language rou- 
tines. One routine is used to move the character set from 
ROM to RAM ; the other produces the rainbow effect when 
the core melts down. 

I did this in order to show that you can make a relative- 
ly fast game primarily out of BASIC. I'm not saying that 
player/missile graphics and machine language routines 
aren't helpful. In fact, they're very useful, and can enhance 
a game tremendously. I just wanted to write a game with- 
out them. 



I did, of course, redefine the character set. In fact, I rede- 
fined two character sets. Each contains a different view 
of the scrubber, krebs, radioactive pellets and hudnall. All 
you have to do to animate them is quickly flip between 
the two character sets. This technique is useful when you 
want to animate a large number of the same objects (i.e., 
krebs and radioactive pellets), regardless of where they 
are on-screen. 

Since I was using the technique for krebs and pellets. 
I also used it for the scrubber, hudnall and title page. To 
see what Krebs removal would be like without this tech- 
nique, change Line 290 to read J = STJCK(0). One note, if 
you redefined a character but don't want it animated (like 
the core walls), you must put the same view in each 
character set. 

The routine which moves the hudnall towards the scrub- 
ber was taken (and slightly modified) from issue 18's Ba- 
sic Training. I highly recommend that you read these 
articles. They contain many valuable programming tips. 

Another way to pick up some knowledge is to analyze 
other people's games. So take a look at Krebs removal. 
Maybe you'll find something you can use in your next 
game. H 

Chuck Rosko is a microbiologist from Pittsburgh, Penn- 
sylvania, the proud father of a baby boy. His interests in- 
clude his wife and son, hockey, and writing educational 
programs. 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 



Listing 1. 
BASIC listing. 



MU 
GD 



KREB5 REMOVAL 
BY CHUCK ROSKO 



K6=6:K10=1O:K15 
255:P0KE 559, KG 



1 REM 

2 REM 
0G 10 Ki=i:K2::2:K3 = 3:K5 = 5 

=15:K18=18:K50=50:K255= 

:G0T0 I0000 
RF 78 REM 
YP 80 EN=EN-K5: POSITION 16,23:? »K6;EN;" 

":IF EN<=K0 THEN 750 

YN 85 CLOC K=KlQ:G0TQ 290 

UK 98 REM ■JHiH:[r»:iYH^-l']li:i'M 
YL 100 POKE 710,K15:SOUND 

R C=K1 TO K50:NEXT C:50 

:P0KE 710 ,148:GQT0 290 

m lee rem ■liJ.iiiJITMinnrTr 



UPDATE ENERGY USAGE 



K0,125,12,K6:F0 
UND K0,K0,K0,K0 



EE 110 SC=SC+K5: POSITION K 
0UND KO,75,K10,K10:SOUN 
C=PC+K1:ZCK2)=ZIK1J :IF 

PP 120 GOTO 290 

KN 198 REM ■itilU JiUMiMW 
TX 200 COLOR 94:PL0T X,Y:S 



1,23:? HK6;SC:S 
D K0,KO,K0,KO:P 
PC=30 THEN 800 



0UND K0,25,K10, 
Kl-M 
CLOCK<=K0 THEN 



K6:S0UND KO,K0,KO,KO:M=I' 
XJ 210 CLOCK=CLOCK-0.2:IF 

80 
KL 220 IF LEUEL>44 THEN 29( 
YN 249 BUG=INTCRNDCK0)*LEVEL3 : IF BUG>4 TH 

EN 290 
GM 260 XU=5GNCX-BX) :YV=SGNi 
UJ 265 LOCATE BX+XU , BY+YU , I 



>0 



ICY-BY) 
Z1:TEMP1=Z1 



0ft 


270 COLO 




= BY + YV :C 




HEN 750 


AS 


285 TEMP 


MM 


288 REM 


JG 


290 J=ST 




M+M:C=XD 


LJ 


300 L0CA 




AND Z<19 


ML 


310 COLO 




+YMCC) :C 


5U 


320 IF Z 


YJ 


330 IF Z 


EW 


748 REM 


MD 


750 P05I 




":F0R 




:NEXT Z 


UN 


752 U = US 




K0 TO K3 


KY 


753 FOR 




NTCRNDC0 




E 560, P+ 


UR 


754 NEXT 




MP2=191 


MK 


760 SCRU 




RUB+SCRU 


N5 


762 FOR 




-Z,K10-Z 



R TEMP2:PL0T BX, BY : BX=BX+XV : BY 
0L0R 220:PL0T BX,BY:IF Zl=94 T 

2=TEMP1 



READ JOYSTICK 



ICKfKOJ SPOKE 756,PEEKC1G6)+K1+ 

CJ) :IF C=K5 THEN 200 

TE X+XM(C) ,Y+YMCC) ,Z:IF Z>185 

2 THEN 100 

R ZCK2):PL0T X, Y:X=X+XMfC3 : Y=Y 

0L0R 94IPL0T X,Y:M=K1-M 

=14 THEN ZCK1) =255: GOTO 110 

<>255 THEN Z CK2) =160 : GOTO 210 

■.■M:HI:M=tia>H.-H:IiVJ=rM 

TION K3,K0:? BK6;" nmitinii:i 

Z=K0 TO K3:SOUND Z, 255-Z, 14, K5 

R(ADRCRB$JJ :P=PEEKC560) :F0R Z- 
:S0UND Z,KO,K0,K0:NEXT Z 
C=K1 TO K15:F0R Z=K0 TO K3:R=I 
)*30):P0KE 712,PEEKC53770) :P0K 
ZiSOUND K0,R,8,14:NEXT Z 
CiPOKE 560,P:BX=K10:BY=K10:TE 

B=5CRUB-K1:C0L0R 160:PLOT 7+5C 
B,22!P0KE 559,K0:POKE 712,14 
Z = K1 TO K1Q:S0LIND KQ,K10*Z,K1O 
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COMPLETED CORE ROUTINE _ 
ALL KREBS CLEARED 



H 

:bk 



INITIALIZE SCRUBBER 



DJ 765 FOR C = Ki TO K10:NEXT C : NEXT Z:POKE 

712,K0:P0KE 559,46:G0SUB 36001 
JM 770 IF SCRUB THEN CL0CK=K10 : EN=LEVEL : P 

C=K0:G05UB lOQO iGQS UB 850 : GOTO 290 
5N 773 REM ■rHSMilUJJ 
PN 775 POSITION K3,K6:? 8K6; " JOBTERMINAT 

ED"!POSITION K3,14!? »K6;"U!liMiIiLl=B5"; 

SC 
Hf 780 FOR Z=KO TO K3JS0UND Z, K255-Z, 14, K 

5:NEXT Z:U=USR(ADRCRB$)) 
RA 790 FOR Z = KO TO K3:S0UND Z, KO, KO , KO : NE 

XT Z:? »K6;CHR$tl25) iGOSUB 30200 
OT 795 GOSUB 30000:G0SUB 1000:G0SUB 850:G 

OTO 290 
FC 798 REM 
LC 800 P$ = " 

EnaBBEagaag 

=K1Q:BY=K1Q:TEMP2=191 
CO 805 FOR Z = K1 TO K5:50UND KO , 75 , K10 , K10 

:POKE 712,14:F0R C=K1 TO K50:NEXT C:S0 

UND K0,15O,K1O,K10:POKE 712, KO 
QF 807 FOR C = K1 TO K50:NEXT C 
QP 810 NEXT Z:FOR F = K1 TO 45:P0SITI0N Kl. 

9:? ttK6:P$CKl.K18) :G$=P$CK2) :G$(LENCQ5 

)+Kl)=P$:P$=Q$: SOUND KO, 200, 11, 14 
NC 815 FOR Z=K1 TO KlOiNEXT ZrSOUND KO,KO 

,KO,KO:NEXT F:PC=K0:LEyEL=LEUEL-K5:IF 

LEVEL<30 THEN LEVEL=30 
DD 820 EN=LEyEL:ZCKl)=160:ZCK2)=168:G0SUB 
300O5:GOSUB 1OOO:CLOCK=K10:GOSUB 850: 

GOTO 290 
GM 848 REM 
LJ 850 X=INTCRNDCK0)*K18)+K1: Y=INT(RNDCK0 

)*K18)+K2:L0CATE X,Y,Z 
IQ 852 IF CZ>185 AND Z<192J OR Z = 14 OR Z = 

64 OR Z=K255 THEN 856 
VJ 860 COLO R 94:PL0T X, Y:RETURN 
YJ 998 REM ■ JWi>J T <:M=« 
U5 1000 FOR CC = K1 TO 30 
MR 1005 A=INTCRNDCK0)*K18)+K1:B=INTCRNDCK 

0)*K18)+K2:L0CATE A,B,Z 
CM 1010 IF tZ>185 AND Z<192) OR Z = 14 OR Z 

=64 THEN 1005 
MK 1040 COLO R 14:PL0T A,B: NEXT CC 
BB 1098 REM ■JWiflltMIiTTini 
ZW 110O FOR CC=K1 TO K10 
WT 1105 A=INTCRNDCK0)*K18)+Kl:B=INTCRNDfK 

0)*K18)+K2:L0CATE A,B,Z 
GS 1110 IF tZ>185 AND Z<192) OR Z = 14 OR Z 

=64 OR Z=K255 THEN 1105 
YP 1150 COLOR K255:PL0T A,B:NEXT CC:P05IT 

ION 16,23:? »K6;EN;" "IRETURN 
UI 10O00 DIM ZZ$C32) ,Z£K2) IGOSUB 32000:GR 

APHICS 17IP0KE 756,PEEKC106)+K1:G0SUB 

30200 '.GOSUB 3OO00 
IS 10010 DIM XDCK15) ,P$C65) , OS C65) : FOR X= 

K5 TO K15:XDCX)=K5:NEXT X : XD £7) =K2 : XD t 

11)=4:XDC14)=KI:XDC13)=K3 
WZ 10020 DIM XMC4) , YMC4) : RESTORE 1OO30:FO 

R I=K1 TO 4:READ X, Y : XMCI) =X : YMCI) =Y : N 

EXT I 
SH 10O30 DATA 0.-1,1,0,0,1,-1,0 
PU 10040 DIM RBSC21) IRESTORE 10050:F0R 1= 

Ki TO 21:READ X:RB$II)=CHR$CX) : NEXT I 
ZW 10050 DATA 104,169,0,133,20,133,19,105 

,1,232,142,22,208,142,10,212,197,19,20 

FF i6060'g0SU B lO Q OiGQSUB 850:G0T0 290 

TM 29098 REM IflilWrfild J JTB 

YY 30OOO POSITION K0,22:? ttK6; "GHiTjr 

K energy$" 

UK 3000 1 POSITION K3,K0:? ttK6; "HnUE 

ECEH" 

GU 30005 POSITION K0,K1:? ttK6; M 

GGGGfl 0GGGGGGG 
0GGG"; 



CHI 



UO 30010 ? »K6;"GGfl 
IF 30620 ? ttK6;"f 
TG 30030 ? ttK6;"[ 

m 

XN 30040 ? «K6j" 
BG 30050 



0GGG* 



m 



gggB 



Qggg 
Qgggg 



5F 
5X 



BD 
NIJ 



LC 
MK 



DRAM INITIAL SCREEN 



CR 

KA 

BR 

QU 

AN 

KD 

FD 

BV 
NY 

EZ 



IZ 
XG 
RZ 



TA 
MT 

FK 



JK 
OP 



RM 



DEFINE 2 CHARACTER SETS 



? ttK6; M GL 

OGGGGG0 

QM 30060 ? ttK 6;"GGG0B 

lllllllllll -RETURN 

30198 REM 

30200 SC=KO: SCRUB=K3:EN=K50 :CL0CK=K10: 
PC=K0:LEyEL=K50:BX=KiO:BY=KlO:TEMP2=19 
1:Z(K1)=160:ZCK2)=160:P0KE 559,34 
30205 POKE 710,148:P0KE 709,202:P0KE 7 
08,54:P0KE 711,70 

30210 POSITION K0,4:? ttK6,'"Z Z ZZZ ZZZ 
ZZZ ZZZ ZZZZZ ZZZ ZZZZZ 
ZZZ ■■; 
30212 ? 8K6; M ZZ ZZZ ZZZ ZZ ZZZ ZZ Z 
ZZ ZZ ZZZZZZ ZZ Z ■'; 
30214 ? «K6;"Z ZZZ ZZZ ZZZ ZZZ 
REMOVAL " 

GZ 30240 POSITION K3,14i? 8K6; M [IH Chuck r 
osko'-jPOSITION K0,21:? 8K6;"to apply p 
ress SHE " 

AK 30250 IF PEEKC53279J=K6 THEN ? 8K6;CHR 
$(125) IRETURN 

Jit 30260 POKE 756,PEEKC106)+K1 + M+M:M=K1-M 
iSOUND K0,200,K10,K10:S0UND KO,KO,KO,K 
OJGOTO 30250 
31098 REM 

3200O RESTORE 32010IF0R I=K1 TO 32 : REA 
D A:ZZ$ CI)=CHR$ CA) iNEXT I 
32010 DATA 104,104,133,204,104,133,203 
,104,133,206,104,133,205,162,4,160,0 
32020 DATA 177,203,145,205,136,208,249 
,230,204,230,206,202,208,240,96 
32030 POKE 106,PEEKC106)-K5:GRAPHICS 1 
7:5TART=CPEEK(106)+K1)*256:P0KE 752, Kl 
32035 POSITION 4,K10:? 8K6j"PLEA5E MA 
IT" 

32040 A=U5RCADRtZZ$) , 57344, START) : A=US 
RCADRCZZS) , 57344, 5TART+512) 
32050 READ X:IF X=-K1 THEN 32300 
32060 FOR Y=KO TO 7 : READ Z:POKE X+Y+ST 
ART,Z:NEXT YiGOTO 32050 

32200 DATA 208,0,0,0,0,0,0,0,255,216,2 
55,0,0,0,0,0,0,0,224,1,1,1,1,1,1,1,1,2 
32,128,128,128,128,128,128,128,128 
32210 DATA 240,1,2,4,8,16,32,64,128,24 
8,128,64,32,16,8,4,2,1 

32220 DATA 496,24,60,102,195,195,162,6 
0,24,504,0,60,126,126,126,126,66,6 
32225 DATA 112,66,126,15,252,63,240,12 
6,60,256,255,129,129,129,129,129,129,2 
55 

C5 32230 DATA 464,255,195,195,195,195,195 
,195,255,480,36,24,165,126,126,126,189 
,24,-1 

32300 READ X:IF X=-K1 THEN RETURN 
32310 FOR Y=KO TO 7:READ ZiPOKE X+Y+ST 
ART+512,Z:NEXT Y : GOTO 32300 
32320 DATA 208, O, 0, O, 0, O, 0, O, 255, 216, 2 
55,0,0,0,0,0,0,0,224,1,1,1,1,1,1,1,1,2 
32,128,128,128,128,128,128,128,128 
32330 DATA 240,1,2,4,8,16,32,64,128,24 
8,128,64,32,16,8,4,2,1 

32340 DATA 496, O, O, 24, 60, 60, 24, 0, 0, 504 
,60,126,255,255,255,255,126,60 
32350 DATA 112,60,126,240,63,252,15,12 
6,60,256,255,129,129,129,129,129,129,2 
55 

CI 32360 DATA 464,255,255,255,255,255,255 
,255,255,480,102,24,165,126,126,126,18 
9,153,-1 
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Since issue 1, ANALOG Computing's 

disk subscriptions have eliminated the need for you w 
spend hours typing in programs from the magazine. 
All of the programs in the magazine are on the disk version. 
A 1-year subscription (12 issues) is $105.00; a Vfe-year (6 issues) is $59.00. 
To subscribe on disk, send your check or money order to: 

DISK SUBSCRIPTION, P.O. BOX 625, HOLMES/PA 19043. 
For fast service, call our toll-free U.S. order line: 800-345-8112 (in PA, call 800-662-2444). 







lU te*s- 



by Barry Green 



This program was developed quite unintentionally. I was 
busy hacking away on a new machine-language animation 
system for the Atari, that works with BASIC. One evening, 
I actually got around to testing it with Atari BASIC. The 
program worked flawlessly and made animation feasible 
from BASIC, but it was still pitifully slow. 

After hours of poring over the code, trying to trim and 
streamline it to make it run faster, I realized the fault was 
not with my program at all. It was working as fast as it 
could. Still, I thought, there has to be a better way! One 
evening when I was reading through my Atari BASIC 
Sourcebook, the dim light in my brain flickered on for a 
moment. 

The incredible slothfulness of BASIC — from a game 
programmer's point of view — could be traced to the fact 
that no provision for integers had been made. Only 
floating-point math was supported, and it's very slow. In- 
teger math is very fast, so somehow my Atari had to be 
made to understand integer math. This was, of course, 
much easier said than done. 

And how? 

One very underexplored feature of the Atari 800XL and 
1200XL (and the expanded 600XL) is that the operating 
systems can be placed in the upper 16K bank of memory 
and modified to no end. 



This was my chance. I could load the OS into RAM, then 
replace the old floating-point math package with a much 
faster integer package. Every operation BASIC did, from 
POKE to FOR-NEXT, would run faster. 

That's what I did. The following program places the OS 
in RAM , then replaces the old math package with a much 
more efficient integer math package. I've run some BA- 
SIC test programs, to show the speed gained by using in- 
teger math instead of floating point. 

Typing it in. 

Listings 1 and 2 are the BASIC data to create your co- 
pies of Integer BASIC. Please refer to the M/L Editor on 

page 4 for typing instructions. You should create the pro- 
gram in Listing 1 under the filename INTBASIC.OBJ. Cre- 
ate the program in Listing 2 under the filename INT- 
BASI2.0BJ. 

The test. 

Is Integer BASIC that much faster? To prove that it is, 
I devised three very simple BASIC programs to test the 
speed difference. Each was run in both languages, and the 
jiffy-count was printed next to each. 

Floating-Point Integer %Faster 

FOR-NEXT 1459 1044 30% 

MATH TEST 947 510 46% 

SCREEN FILL 3754 1869 51% 

The source listings for Integer BASIC follow this arti- 
cle. As you can see, the Integer BASIC can be up to 50% 
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Integer BASIC 



continued 



faster. That's a serious improvement for something so eas- 
ily accessible. 

The side benefit: those of you using an Integer BASIC 
compiler might consider how handy it would be to be able 
to interactively debug your own programs. 

How to integrate it. 

Here are instructions for using the INTBASIC integer 
math package for 64K Atari XL computers. 

To use this package, just load the INTBASIC.OBJ file 
from DOS menu item L, or from OS/A+ type in LOAD INT- 
BASIC.OBJ. Your computer will now be in Integer BASIC. 
Do this only if no BASIC program is in memory at the time. 

The INTBASIC package has been tested, with no bugs 
found. However, some knowledge of integer math is re- 
quired to use the package effectively. Since the numbers 
being dealt with are integers, BASIC will no longer recog- 
nize a decimal point as valid. Only numbers in the range 
of 0-65535 or, in version 2, -32768 to +32767 will be ac- 
cepted. This also means that division is treated slightly 
differently. In integer math, the expression 10/3 evaluates 
into 3, not 3.3333. . .All numbers are rounded down; the 
digits past the decimal point are simply dropped. 

This means that special care must be taken in using the 
built-in functions such as COS(X) and RND(O). Math func- 
tions like COS(X) will simply not work correctly. RND(O) 
should not be used, because it now only returns a value 
between and 3. It's a better idea to use PEEK(53770) to 
get a random number. 

Negative numbers in version 1 are different. They are 
now expressed in 65536-X terms. This means that a nega- 
tive number is subtracted from 65536 and the result is 
printed. Therefore, when printing a negative 1 (-1) on the 
screen, you will get 65535 (65536-1). Negative numbers 
are fully usable; they just print differently from what you'd 
expect. 

One last restriction: BASIC programs developed under 
the integer math package cannot be loaded into the float- 
ing-point BASIC; nor can floating point programs be load- 
ed into Integer BASIC. 

The solution to transferring programs from one format 
to the other is simply to LIST them onto disk or cassette, 
then ENTER them into the other version of BASIC. When 
transferring programs from floating-point BASIC to in- 
teger, remember that decimal points will be flagged as er- 
rors, and you must fix all RND(O) usage. 

Have fun with Integer BASIC and enjoy its refreshing 
speed. H 

Barry Green of Out of the Blue Associates bough! his 
first Atari (an 800J in 1982 and taught himself BASIC and 
assembly language. Since then, he's worked on many con- 
versions and originals for various companies. His main in- 
terest lies in system software and utilities. 

Listing 1. 



1000 DATA 255,255,0,6,101,6,32,70,6,17 

7,203,145,205,200,2 08,249,1480 

1010 DATA 230,204,230,206,202,224,48,2 




Listing 2. 
1000 DATA 255,255,0,6,101,6,32,70,6,17 
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7,203,145,205,260,208,249,1480 

1018 DATA 230,204,230,206,262,224,48,2 

08,3,32,91,6,224,0,208,233,8696 

1020 DATA 120,169,0,141,14,212,169,254 

,141,1,211,32,70,6,177,205,7512 

1030 DATA 145,203,200,208,249,230,204, 

230,206,202,224,48,208,3,32,91,502 

1040 DATA 6,224,0,208,233,88,169,64,14 

1,14,212,96,169,0,133,203,8047 

1O50 DATA 169,192,133,204,169,0,133,20 

5,169,64,133,206,162,64,160,0,7732 

1060 DATA 96,160,8,230,204,230,206,202 

,136,208,248,96,226,2,228,2,1480 

1070 DATA 0,6,96,0,216,78,216,32,161,2 

19,169,64,133,212,169,8,8184 

1080 DATA 133,213,133,214,133,215,56,8 

,164,242,177,243,201,48,144,52,341 

1090 DATA 201,58,176,48,40,24,8,41,15, 

72,165,214,133,215,165,213,8715 

1100 DATA 10,38,215,10,38,215,24,101,2 

13,133,213,165,215,101,214,133,1444 

1116 DATA 214,6,213,38,214,104,24,101, 

213,133,213,144,2,230,214,230,2251 

1120 DATA 242,76,17,216,40,96,230,216, 

132,217,32,81,218,165,213,133,1692 

1130 DATA 220,165,214,133,221,16,29,16 

5,213,73,255,24,105,1,133,213,8100 

1140 DATA 165,214,73,255,105,0,133,214 

,160,0,169,45,145,243,230,243,2604 

1150 DATA 208,2,230,244,160,0,162,0,16 

5,213,217,128,217,165,214,249,4825 

1160 DATA 123,217,144,19,165,213,56,24 

9,128,217,133,213,165,214,249,123,4897 

1170 DATA 217,133,214,232,76,20,217,13 

8,9,48,145,243,200,192,5,208,109 

1180 DATA 213,136,177,243,9,128,145,24 

3,160,0,177,243,201,48,208,4,9712 

1190 DATA 200,76,70,217,132,222,165,24 

3,56,229,222,133,218,165,244,233,7075 

1200 DATA 0,133,219,177,243,145,218,20 

0,192,5,208,247,165,220,133,213,5700 

1210 DATA 165,221,133,214,16,8,165,243 

,208,2,198,244,198,243,96,39,1337 

1220 DATA 3,0,0,0,16,232,100,10,1,170, 

217,183,217,166,212,164,716 

1238 DATA 213,169,64,133,212,134,213,1 

32,214,24,96,210,217,219,217,165,4440 

1240 DATA 213,133,212,165,214,133,213, 

24,96,96,218,98,218,76,117,218,1105 

1250 DATA 102,218,146,218,165,213,24,1 

01,225,133,213,165,214,101,226,133,356 

9 

1260 DATA 214,24,96,165,213,56,229,225 

,133,213,165,214,229,226,133,214,6544 

1270 DATA 6,212,165,214,10,102,212,165 

,213,5,214,208,2,133,212,24,8786 

1280 DATA 96,219,218,2,219,169,0,133,2 

19,133,218,162,16,208,13,24,6991 

1290 DATA 165,219,101,225,133,219,165, 

218,101,226,133,218,70,218,102,219,421 

8 

1300 DATA 102,214,102,213,202,48,4,144 

,243,176,228,24,96,40,219,86,8678 

1310 DATA 219,165,225,5,226,240,39,169 

,0,133,219,133,218,160,16,6,7494 

1320 DATA 213,38,214,38,219,38,218,56, 

165,219,229,225,176,165,218,229,6048 

1330 DATA 226,144,6,134,219,133,218,23 

8,213,136,208,227,24,96,56,96,9978 

1340 DATA 137,221,151,221,134,252,132, 

253,160,2,177,252,153,212,0,136,1950 

1350 DATA 16,248,96,152,221,166,221,13 

4,252,132,253,160,2,177,252,153,4501 

1360 DATA 224,0,136,16,248,96,167,221, 

181,221,134,252,132,253,168,2,2836 

1370 DATA 185,212,8,145,252,136,16,248 

,96,182,221,193,221,160,2,185,2265 

1388 DATA 212,0,153,224,0,136,16,247,9 

6,226,2,227,2,228,2,8,4969 



Listing 3. 
BASIC listing. 

g M 1 5 POKE 19,0: POKE 20,0 
1 10 FOR X=i TO 1000O 
NU 20 NEXT X 

30 PRINT PEEKC19J*256+PEEKC20J 



Listing 4. 
BASIC listing. 

HP 10 POKE 19,0:P0KE 20,0 
$11 20 J = 5 

X4 30 FOR X=l TO 100O 
W 40 J=J*2: J=J/2 
HY 50 NEXT X 
Kf 60 PRINT PEEKC13)*256+PEEKC20) 



Listing 5. 
BASIC listing. 

10 GRAPHICS 8+16:5CREEN=PEEK£88J+256*P 

EEKI89J 

20 POKE 19,0:POKE 20,0 
fi* 30 FOR X=0 TO 7679SP0KE 5CREEN+X, 255 : N 

EXT X 
XH 40 UV=PEEKC19)*256+PEEKC20) 
80 50 GRAPHICS O: PRINT VU 



Listing 6. 
Assembly listing. 



t 

< 3AVE *Dl INTBASIC.ABH 

* ASM, ,»D| INTBASIC.OBJ 

, 

f by Barry Grtfn 

t Out of tha Blua filioclltti 

I 

* This la a *ath packaga daalgnad 
S to raplaca tha floating-point 

* packaga In tha ATARI 64K XL 

* coaputara. Thia packaga la 

* antlraly 1 n tagar-basad ao It 

* la auch faatar. Ita lntarnal 

* rapraaantat 1 on of nuabara is 

I atlll rafarrsd to as Floatlng- 

* point, aaraly for convanlanca. 
f Thia rapraaantat ion diffara 

* fro* atandard 6302 lntagara in 

* that tharo la an ixpontnt byta 

* of S40 addad to it. lntagara can 

> atill ba uaad in FPI and IFP 

* bacauaa thaaa routlnaa rastora 

* tha nuabara to proper ordar. 

* Thia varaion Mill handla nuabara 
1 in tha ranga of 0-63533. Any 

t nuabar abova 32767 Mill ba 

I traatad aa a nagativa nuabar in 

t any aethaaatlcal computations 

> but is valid aa a nuabar for 

> auch things aa FOR-NEXT loopa 
9 and so forth. Any nuabar that 

s Is INPUTtad or ao forth with a 

l alnua algn In front of It Hill 

* ba convartad to this foraat, 
1 which la siaply 63S36-X. 

, 

.□PT NO LIST 
FRO ■ SD4 
PRE - »DA 
FR1 - SCO 
INBUFF - »F3 
CIX - »F2 
SKIP. BLANKS • SDBA1 
INTLBF - SDA31 
LBUFF - S03B0 
FLPTR - »FC 
• 

«- S0600 
START 
, 

> roves the xl os to ram 

< this code ib based on the 

» official release from atari inc. 

i and was written by them. 

I 

Ron - SCB 
RAM - ROH+2 
08R0M - acOOO 
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Integer BASIC continued 



OSRAH 
NMIEN 
PORTB 



• 4000 

• D40E 
»D301 

JSR INIT 

LDfl (ROM), 

OTB CRAM) , 

INY 

BNE H0V1 

INC ROM*! 

INC RAH+1 

DEX 

CPX »»30 

BNE IMI 

JSR SKIP 

CPX «»00 

BNE M0V1 



SET POINTERS 
MOVE THE ROM 
INTO RAM 



SKIP I/O 



CLC 

ADC FRO + 1 

8TB FRO+1 

LDB FRO + 3 

ADC FRO + 2 

BTA FRO + 2 

ASL FRO-M 

ROL FRO + 2 



BEI 






LDB 


»»00 


DISABLE THE 


STA 


NMIEN 


INTERRUPTS 


LDA 


• »FE 




STA 


PORTB 


FLIP ROM OU 



I B 
I 2 



PLA 

CLC 

ADC FRO-M 

STB FROM 

BCC IB 

INC FRO + 2 

INC CIX 

JMP 10 

PLP 

RTB 



JSR INIT 

LDA (RAM),Y MOVE THE OS 

BTA (ROM),Y BACK INTO THE 



CONVERTS INTEGERS INTO ASCII 
CHARACTER STRINGS. 



INY 

BNE M0V2 

INC ROM-M 

INC RAMM 

DEX 

CPX #»30 

BNE |M2 

JSR SKIP 

CPX »»00 

BNE M0V2 



RIGHT ADDRESSES 



CLI 

LDfl ««40 RE-ENABLE THE 
STA NMIEN INTERRUPTS AND 
RTB RETURN. 

| 

I INITIALIZE PAGE ZERO VARIABLES 
« FOR ADDRESSES OF RAM AND ROM 
> USED FOR INDEXING 



LDA • <OSROH 

BTA ROM 

LDA • >OSROM 

BTA ROMM 

LDA • <OSRAM 

STA RAM 

LDA • >OSRAM 

STA RAMM 

LDX »»40 

LDY »»00 
RTS 



* BET PAGE ZERO VARIABLES TO 
» BKIP THE HARDWARE REGISTER8 



SKIP 


LDY 


• *0S 


BKIP1 


INC 


ROMM 




INC 


RAMM 




DEX 






DEY 






BNE 


SKIP1 



RTB 



• SET THE INIT ADDRESB TO DOB 80 
» ALL THE PREVIOUS CODE HILL BE 

« EXECUTED AND THE REST OF THE 

» PROGRAM HILL LOAD INTO THE TOP 

» 16K AND REPLACE THE OLD MATH 

* PACKAGE. 

, 

»- »02E2 
. MORD BTART 

I 

» THIS JUST RETURN8 CONTROL TO 
» DOB AFTER THE INTEGER MATH 
« PACKAGE HAB BEEN LOADED IN. 

1 

CONTINUE 

RTB 
> 

« FOLLOWING ARE THE ACTUAL MATH 
t ROUTINES WHICH LOAD RI6HT ON 
» TOP OF THE OLD ONES. 
I 

>- »D800 
AFP 

• 

> CONVERTS ASCII TO NUMBER VALUE 
, 

JSR SKIP. BLANKS 

LDA »»40 

STA FRO 

LDA »»00 

BTA FROM 

STA FRO + 2 

BTA FRO + 3 

SEC 

PHr 

10 LDY CIX 

LDA (INBUFF).Y 

CMP t'O IS IT A DIBIT? 

BCC I 2 IF NOT, THEN 

CMP »'9+l BRANCH TO 

BCB I 2 THE RETURN. 

PLP 

CLC 

PHP 

AND »*0F 

PHA SAVE THE DIBIT. 
« 

LDA FRO+2 MULTIPLY THE 

STA PRO + 3 NUMBER BY 10 

LDA FROM BEFORE ADDING 

ASL A IN THE NEW 

RDL FRO + 3 DIBIT. 

A8L A 

ROL FRO + 3 



I 02 

I 01 



J8R 
LDA 
BTA 
LDA 
STA 
LDY 
LDX 
LDA 
CMP 
LDA 
SBC 
BCC 
LDA 
SEC 
SBC 
STB 
LDB 
SBC 
8TB 
INX 
JMP 
NEXT. DIBIT 

TXB 
ORA 
STA 
INY 
CPY 
BNE 
DEY 
LDA 
ORA 
BTA 



INTLBF 

FROM 

FRE + 2 

FRO + 2 

FRE + 3 

#•00 

#»00 

FROM 

LO. BYTES, Y 

FRO+2 

HI . BYTES, Y 

NEXT. DIGIT 

FROM 

LO. BYTES, Y 

FROM 

FRO + 2 

HI . BYTES, Y 

FRO + 2 

I 01 



• » 30 

( INBUFF) , Y 

»«03 
■ 02 

( INBUFF) , Y 

#•80 

( INBUFF) , Y 





LDA 


FRO + 2 






8TA 


FROM 






CLC 








RTS 
















»- 


• DA60 




FSUB 










JMP 


FSUB2 






»- 


• DA66 




FADD 








» THESE 


ROUTINES WILL ADD AND 


» SUBTRACT INTEGERS. 






LDA 


FRO + 1 






CLC 








ADC 


FRl + l 






STA 


FRO+1 






LDA 


FRO + 2 






ADC 


FR1+2 






STB 


FRO + 2 






CLC 








RTB 














FSUB2 




.LOCAL 






LDA 


FRO+1 






SEC 








SBC 


FRl + l 






STA 


FRO+1 






LDA 


FRO + 2 






BBC 


FR1+2 






STA 


FRO + 2 






ASL 


FRO 


THIS BET8 THE 




LDA 


FRO + 2 


SIGN BIT IN THE 




ASL 


A 


EXPONENT FOR 




ROR 


FRO 


BASIC'S COMPARE 




LDA 


FRO+1 


IF RESULT 




ORA 


FRO + 2 


IS ZERO THEN 




BNE 


1 1 


ZERO OUT THE 




BTA 


FRO 


EXPONENT. 


i 1 


CLC 








RTB 








«- 


• DADB 




FMUL 









• NOW REMOVE THE LEADING ZEROES 
I 

I 03 



LDY 
LDA 
CMP 
BNE 
INY 
JMP 
STY 
LDA 
SEC 
SBC 
STB 
LDB 
SBC 
STB 
LDB 
BTA 
INY 
CPY 
BNE 
LDA 
STA 
LDA 
STA 
RTB 



• »00 

( INBUFF) , Y 

• ' 

I 04 

■ 03 
FRE + 4 

INBUFF 

FRE + 4 

FRE 

INBUFF+1 

• •00 
FRE+1 

( INBUFF) , Y 
CFRE) , Y 

• •OS 

■ OS 
FRE + 2 
FRO+1 
FRE + 3 
FRO + 2 



THIS ROUTINE WILL MULTIPLY 
THE CONTENTS OF FRO BY THE 
CONTENTS OF FR1 AND STORE THE 
PRODUCT BACK INTO FRO. 

. LOCAL 

LDA «0 

BTA FRE+1 

STA FRE 

LDX »16 

BNE I 1 
2 CLC 

LDA FRE+1 

ADC FRl+l 

BTA FRE+1 

LDA FRE 

ADC FR1+2 

STA FRE 

1 L8R FRE 

ROR FRE+1 

ROR FRO+2 

ROR FRO+1 



DEX 

BMI 

BCC 

BCB 12 

CLC 

RTS 



I 3 
I 1 



«- (DB28 



THIS ROUTINE WILL DIVIDE THE 
CONTENTS OF FRO BY FR1 AND 
STORE THE RESULT INTO FRO. 



* THE FOL 

» IN CONV 
« A8CII C 



LOWING ARE TABLES USED 
ERTING NUMBERB TO 
HARACTER STRINGS. 



HI. BYTES .BYTE >10000 

.BYTE MOOO, MOO 

.BYTE MO, >1 
LO. BYTES .BYTE <10000 

.BYTE MOOO, <100 

.BYTE <10, <1 
» 

•- «D9AA 
IFP 

< 

> THIS ROUTINE WILL CONVERT AN 
» INTEGER TO FLOATING POINT, 
» WHICH IB 8IMPLY LOW BYTE-HI8H 
» BYTE FORMAT WITH AN EXPONENT. 
, 

LDX FRO 

LDY FRO+1 

LDA »»40 (EXPONENT 

STA FRO 

8TX FRO+1 

8TY FRO+2 

CLC 

RTB 
< 

»- »D?D2 
FP1 
, 

» THESE ROUTINES WILL CONVERT A 
» FLOATING POINT NUMBER BACK TO 
» INTEGER FORMAT. 

• 

LDA FRO+1 
STA FRO 



.LOCAL 




LDA 


FRl + l 


CANNOT 


ORA 


FR1+2 


DIVIDE 


BED 


I ERROR 


BY ZERO 


LDA 


to 




BTA 


FRE+1 




8TA 


FRE 




LDY 


• 16 




ASL 


FRO+1 




ROL 


FRO + 2 




ROL 


FRE + 1 




ROL 


FRE 




8EC 






LDA 


FRE+1 




SBC 


FRl + l 




TAX 






LDA 


FRE 




SBC 


FR1+2 




BCC 


I 1 




BTX 


FRE+1 




BIB 


FRE 




INC 


FRO+1 




DEY 






BNE 


1 2 




CLC 






RTB 







SEC 

RTB 



DOR 



THIS ROUTINE WILL LOAD FRO 
FROM THE ADDRESS POINTED TO 
BY THE 6902 X,Y REGISTERS. 
OR FLDOP WILL LOAD IT FROM THE 
CURRENT ADDRESS OF FLPTR. 
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8TX FLPTR 

STY FLPTR+1 

LDV »»02 

LDA (FLPTR), Y 

STA FRO.Y 

DEY 

BPL IF1 

RTS 



I- 



IDD98 



THIS ROUTINE HILL LOAD FR1 
FROM THE ADDRESS POINTED TO 
BY THE 6302 X,Y RE6ISTER8. 
OR FLD1P MILL LOAD IT FROM THE 
CURRENT ADDRESS OF FLPTR. 



BTX FLPTR 

STY FLPTR-M 

LDY »»02 

LDA (FLPTR), Y 

STA FR1.Y 

DEY 

BPL |F3 

RTS 



I- »DDA7 



THIS ROUTINE WILL STORE FRO 
INTO THE ADDRESS POINTED TO 
BY THE 6302 X,Y REGISTERS. 
OR FSTOP WILL STORE IT INTO THE 
CURRENT ADDRES8 OF FLPTR. 



BTX FLPTR 

STY FLPTR+1 

LDY »»02 

LDA FRO.Y 

STA (FLPTR! ,\ 

DEY 

BPL |F4 

RT8 



•- *DDB6 



t THIS ROUTINE WILL HOVE THE 
« CONTENTS OF FRO INTO FR1. 



LDY t»02 

LDA FRO.Y 

STA FR1.Y 

DEY 

BPL |F3 

RTS 



I- »02E0 
.WORD CONTINUE 



Listing 7. 
Assembly listing. 



I SAVE »D| INTBASI2. ASP 
I ABM, , »Di INTBASIC. OBJ 



* by Barry Grtin 

» Out of the Blu« Awe 



t 


This 1* « mth 


package designed 


* 


to r m p 1 ici the 


f 1 oat i ng-poi nt 
ATARI 64K XL 


1 


package in the 


* 


coRiputirt . This 


package Is 


* 


antiraly lnttgi 


r-based so it 


* 


i ■ much i a ■ t ir • 


Its internal 


1 


ripr«untition 


of numbers is 


* 


mti 1 1 nfirrtd 


to as Fl oat 1 ng- 


X 


point, maral y f 
This ripmtnti 


or convenience. 


* 


tion differs 


f 


from standard 6302 integers in 


* 


that thara is an exponent byta 


* 


of *40 addad to 


it. Integers can 


t 


■till ba uitd 1 


n FPI and IFP 


* 


biciuii these routines restore 


1 


tha numbin to 


proper order. 


1 


Thia varaion icctpti lntagars 


1 


in the r anga of 


-3276B to 32767. 


f 


Any nuiKbtr an t ■ 


red which is 


* 


great ir than 32767 will b* 


1 


converted to a 


negative number. 


f 


These negatives 


are fully 


1 


usable and have 


the same val ue 


> 


as what nii ent 


• nd. they Just 


* 


print out as negative. 


* 


For ex amp 1 e , if 


tha user entered 


s 


FOR X-30000 to 


6SS3S and then 


* 


L IBTed that 1 i n 


a . it might say 


¥ 


FOR X-30000 to 


-1 . It Mill Hork 


* 


i» act 1 y as you 


wanted , it Just 


I 


prints out as a 


nagat 1 va . 


* 


Statements such 


as POKE 33248,0 


« 


are still perfectly 1 egal , they 
just may look different than 


t 


t 
« 


what you inptct 


• d . 


.OPT NO 


LIBT 


FRO - »D4 




FRE - SDA 




FRI - «E0 




INBUFF - «F3 




CIX - »F2 





SKIP. BLANKS - »DBS1 
INTLBF - «DA31 
LBUFF - »03S0 
FLPTR - »FC 



START 



• 0600 



« MOVES THE XL 08 TO RAM 

I THIS CODE IS BASED ON THE 

» OFFICIAL RELEASE FROM ATARI INC. 

I .AND WAS WRITTEN BY THEM. 



ROM 


m 


• CB 




RAM 


m 


ROH + 2 




OBROM 


m 


• COOO 




08RAM 


m 


• 4000 




NMIEN 


m 


• D40E 




PORTB 


m 


• D301 






JSR 


INIT 


SET POINTERS 


M0V1 


LDA 


(ROM) , 


Y MOVE THE ROM 




BTA 


(RAM) , 


Y INTO RAM 




INY 








BNE 


H0V1 






INC 


ROH+1 






INC 


RAH+1 






DEX 








CPX 


• •30 






BNE 


■ MI 






JSR 


SKIP 


SKIP I/O 


I Ml 


CPX 


• *00 






BNE 


M0V1 




* 


BEI 








LDA 


• •00 


DISABLE THE 




BTA 


NMIEN 


INTERRUPTS 




LDA 


• »FE 






STA 


PORTB 


FLIP ROM OUT 


* 


JSR 


INIT 




M0V2 


LDA 


(RAM) | 


Y MOVE THE OS 




8TA 


(ROM) , 


Y BACK INTO TH1 




INY 




RIGHT ADORES 




BNE 


M0V2 






INC 


ROM+l 






INC 


RAM+1 






DEX 








CPX 


• •30 






BNE 


1M2 






JSR 


8KIP 




1 M2 


CPX 


• •00 






BNE 


M0V2 







BCC 


■ 2 


IF NOT, THEN 




CMP 


• '»+! 


BRANCH TO 




BCS 


■ 2 


THE RETURN. 




PLP 








CLC 








thp 








AND 


••or 






PHA 




SAVE THE DI6I 




LDA 


FRO + 2 


MULTIPLY THE 




STA 


FRO + 3 


NUMBER BY 10 




LDA 


rRO-M 


BEFORE ADDIN6 




ASL 


A 


IN THE NEW 




ROL 


FRO + 3 


DI6IT. 




A8L 


A 






ROL 


FRO + 3 






CLC 








ADC 


FRO+1 






STA 


FRO+1 






LDA 


FRO + 3 






ADC 


FRO + 2 






STA 


FRO + 2 






A8L 


FRO+1 






ROL 


FRO + 2 






PLA 








CLC 








ADC 


FRO-M 






BTA 


FROM 






BCC 


■ B 






INC 


FRO + 2 




i B 


INC 


CIX 






JMP 


lO 




I 2 


PLP 







t- «DBE6 



CONVERTS INTESERB INTO ASCII 
CHARACTER 8TRINSS. 



CLI 

LDA «»40 RE-ENABLE THE 
STA NMIEN INTERRUPTS AND 
RT8 RETURN. 

, 

» INITIALIZE PAGE ZERO VARIABLES 
t FOR ADDRESSES OF RAM AND ROM 
» USED FOR INDEXING 
, 

INIT LDA # <08ROM 

STA ROM 

LDA • >OSR0M 

BTA ROMM 

LDA • <08RAM 

BTA RAM 

LDA • >QSRAM 

STA RAM-M 

LDX »«40 

LDY »»00 

RTS 
, 

» SET PAGE ZERO VARIABLES TO 
I SKIP THE HARDWARE RE6I8TERB 

, 

SKIP LDY »»0B 
SKIP1 INC ROM+l 

INC RAM-M 

DEX 

DEY 

BNE SKIP1 

RTS 
I 

» SET THE INIT ADDRESS TO DOS SO 

« ALL THE PREVIOUS CODE WILL BE 

« EXECUTED AND THE RE8T OF THE 

• PROGRAM WILL LOAD INTO THE TOP 
» 16K AND REPLACE THE OLD MATH 

» PACKAGE. 

1 

»- »02E2 
.WORD START 
» 

• THI8 JUST RETURNS CONTROL TO 
» DOS AFTER THE INTEGER MATH 

• PACKAGE HAS BEEN LOADED IN. 

» 

CONTINUE 

RTS 
, 

« FOLLOWING ARE THE ACTUAL MATH 

• ROUTINES WHICH LOAD RIGHT ON 
» TOP OF THE OLD ONES. 

• 

«- «D800 
AFP 
, 

» C0NVERT8 ASCII TO NUMBER VALUE 

1 

JSR SKIP. BLANKS 

LDA #»40 

BTA FRO 

LDA #*00 

STA FRO-M 

STA FBO+2 

STA FRO-t-3 
SEC 
PHP 

10 LDY CIX 

LDA ( INBUFF) , Y 

CMP »'0 IS IT A DIGIT - " 





JSR 


INTLBF 






LDA 


FROM 






STA 


FRE*2 






LDA 


FRO + 2 






BTA 


FRE + 3 






BPL 


■ 00 I 


ll> 




LDA 


FROM | 


<>> 




EOR 


»»FF | 


III 




CLC 




»*» 




ADC 


• •01 | 


III 




STA 


FROM | 


»«» 




LDA 


FRO+2 | 


III 




EOR 


• IFF | 


IX 




ADC 


• •00 I 


III 




STA 


FRO+2 | 


i »»» 




LDY 


• •00 | 


III 




LDA 


• •- 


!»«» 




STA 


( INBUFF) | 


i Y | ■»« 




INC 


INBUFF i 


1 »»« 




BNE 


■ 00 1 


; »»« 




INC 


INBUFF+1 


1 »»» 


1 00 


LDY 


• •00 




1 02 


LDX 


• •00 




.01 


LDA 


FRO+1 






CMP 


LO. BYTES 


, Y 




LDA 


FRO + 2 






SBC 


HI . BYTES, 


,Y 

IT 




BCC 


NEXT. DIG! 




LDA 


FRO+1 






8EC 








SBC 


LO. BYTES. 


, Y 




BTA 


FRO+1 






LDA 


FRO + 2 






SBC 


HI . BYTEB 


, Y 




BTA 


FRO + 2 






INX 








JMP 


I 01 




NEXT. 


DIGIT 

TXA 








ORA 


• •30 






STA 


( INBUFF) 


, Y 




INY 








CPY 


• •03 






BNE 


■ 02 






DEY 








LDA 


(INBUFF) 


, Y 




ORA 


• •BO 






6TA 


( INBUFF) 


, Y 


> NOW 


REMOVE 


THE LEADING ZER0E8 


* 


LDY 


• •00 




1 03 


LDA 


( INBUFF) 


, Y 




CMP 


• '0 






BNE 


1 04 






INY 








JMP 


1 03 




1 04 


STY 


FRE + 4 






LDA 


INBUFF 






SEC 








SBC 


FRE + 4 






STA 


FRE 






LDA 


INBUFF+1 






SBC 


• »00 






STA 


FRE+1 




■ OS 


LDA 


( INBUFF) 


, Y 




STA 


(FRE) , Y 






INY 








CPY 


• •03 






BNE 


■ 09 






LDA 


FRE + 2 






STA 


FRO+1 






LDA 


FRE + 3 






STA 


FRO + 2 






BPL 


1 06 


1 »*» 




LDA 


INBUFF 


1 •** 




BNE 


1 07 


1 »»l 




DEC 


INBUFF+1 


1 ««» 


1 07 


DEC 


INBUFF 


1 »•• 


■ 06 


RT8 







I THE FOLLOWING ARE TABLES USED 
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» IN CONVERTING NUMBERS TO 
» ASCII CHARACTER 8TRIN68. 

, 

HI. BYTES .BYTE >10000 

.BYTE >1000, MOO 

.BYTE >10, >J 

LO. BYTES .BYTE <10000 

.BYTE <1000, <100 

.BYTE <10, <1 

I 

«- »D?AA 
IFP 

, 

« THIS ROUTINE WILL CONVERT AN 
» INTEGER TO FL0ATIN6 POINT, 

* WHICH IS SIMPLY LOW BYTE-HI6H 
» BYTE FORMAT WITH AN EXPONENT. 

, 

LDX FRO 

LDY FRO+1 

LDA »»40 [EXPONENT 

8TA FRO 

STX FRO+1 

STY FRO + 2 
CLC 
RTB 

, 

»- »D?D2 
FPI 

I 

* THESE ROUTINES WILL CONVERT A 

* FLOATING POINT NUMBER BACK TO 
» INTEGER FORMAT. 

< 

LDA FRO+1 

8TA FRO 

LDA FRO+2 

STA FRO+1 
CLC 
RTB 

, 

»= »DA60 
FSUB 

JMP FSUB2 

, 

<- »DA66 
FADD 
I 

< THESE ROUTINES WILL ADD AND 
» SUBTRACT INTEGERS. 

» 

LDA FRO+1 

ADC FR1+1 

STA FRO+1 

LDA FRO+2 

ADC FR1+2 

STA FRO+2 
CLC 
RTS 

, 

F8U82 

» 

. LOCAL 

LDA FRO+1 

SEC 

SBC FR1+1 

STA FRO+1 

LDA FRO+2 

BBC FR1+2 

STA FRO+2 

ASL FRO THIS 8ETB THE 

LDA FRO+2 3I6N BIT IN THE 

ABL A EXPONENT FOR 

ROR FRO BASIC'S COMPARE. 



LDA FRO+1 
ORA FRO+2 
BNE I 1 
BTA FRO 
CLC 
RT8 



IF RESULT 
IS ZERO THEN 
ZERO OUT THE 
EXPONENT. 



>• »DD8? 



FMUL 



»- VDADB 



» THIB RDUTINE WILL MULTIPLY 

» THE CONTENTS OF FRO BY THE 

» CONTENTS OF FR1 AND STORE THE 

• PRODUCT BACK INTD FRO. 



.LOCAL 


LDA 


• 


8TA 


FRE+1 


STA 


FRE 


LDX 


• 16 


BNE 


1 1 


CLC 




LDA 


FRE+1 


ADC 


FR1 + 1 


STA 


FRE+1 


LCA 


FRE 


ADC 


FR1 + 2 


BTA 


FRE 


LBR 


FRE 


ROR 


FRE+1 


ROR 


FRO + 2 


ROR 


FRO+1 


DEX 




BMI 


13 


BCC 


■ 1 


BC8 


■ 2 


CI C, 




RTB 





» THIS ROUTINE WILL DIVIDE THE 
f CONTENTS OF FRO BY FR1 AND 
» STORE THE RE8ULT INTO FRO. 



■LOCAL 


LDA 


FR1 + 1 


ORA 


FR1+2 


BED 


I ERROR 


LDA 


• 


STA 


FRE+1 


BTA 


FRE 


LDY 


• 16 


|2 ASL 
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SEC 




LDA 


FRE+1 


BBC 


FR1 + 1 


TAX 




LDA 


FRE 


BBC 


FR1+2 
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1 1 


BTX 


FRE+1 


BTA 


FRE 


INC 


FRO+1 


I 1 DEY 




BNE 


■ 2 


CLC 
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■ERROR 




EEC 
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THIB ROUTINE WILL LOAD FRO 
FROM THE ADDRESS POINTED TO 
BY THE 6302 X,Y REGISTERB. 
OR FLDOP WILL LOAD IT FROM THE 
CURRENT ADDRESS OF FLPTR. 

BTX FLPTR 

STY FLPTR+1 
.DOP 

LDY d«02 

r l LDA (FLPTR) , Y 

STA FRO.Y 

DEY 

BPL iFl 

RTS 



»DD»B 



THIS ROUTINE WILL LOAD FR1 
FROM THE ADDRESS POINTED TO 
BY THE 4302 X,Y REGISTERS. 
OR FLD1P WILL LOAD IT FROM THE 
CURRENT ADDRES8 OF FLPTR. 



8TX FLPTR 

STY FLPTR+1 

LDY «»02 

LDA (FLPTR) . Y 

BTA FR1.Y 

DEY 

BPL |F3 

RTB 



FLD1P 
|F3 



FSTOR 
, 

» THIS 

» INTO 

• BY TH 
» OR FS 

* CURRE 



<- *DDA7 



ROUTINE WILL 8T0RE FRO 
THE ADDRE88 POINTED TO 
E 6302 X,Y REGISTERB. 
TOP WILL STORE IT INTO THE 
NT ADDRESS OF FLPTR. 

STX FLPTR 
STY FLPTR+1 

LDY «»02 

LDA FRO.Y 

BTA (FLPTR), Y 

DEY 

BPL |F4 

RTB 



FSTOP 
|F4 



• DDB6 



THIS 
CONTE 



ROUTINE WILL HOVE THE 
NTS OF FRO INTO FR1. 



LDY »»02 

LDA FRO,Y 

BTA FR1.Y 

DEY 

BPL |F3 

RTS 
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Star Coi 



by Dave Pettit 



Having played Atari's Star Raiders for 
years, I've learned a few interesting ways 
to play it faster and more accurately. Some 
of my strategies are extensions of what the 
instruction manual says; some are applica- 
tions of other people's strategies; and still 
others are unwritten facts of how the game 
progresses. I hope these ideas will help all 
players, from Novice to Commander. 

The facte here have been grouped by 
topics, arranged in alphabetical order — 
except for "Miscellaneous Strategies" and 
specifics about the Commander Mission, 
which are placed at the end. Ideas are ar- 
ranged within a category so that practical- 
ly anyone can use the beginning sugges- 
tions, while more able navigators will see 
uses for the later concepts. When an idea 
involving damaged or destroyed equipment 
is given, it's placed at the section's end. 

You can read this article through or use 
it as a reference. Say you want to find out 
what you can do to locate a starbase when 
both your Tracking Computer and Long- 
Range Scan are damaged. You should look 
under each section — Starbase, Tracking 
Computer and Long-Range Scan. You'll 
probably find just what you need in one. 

Aft view. 

1. When in aft view, the joystick direc- 
tions are reversed from those of the front 



view. An easier way to learn this: the con- 
trols are the same as for hyperwarp in PI- 
LOT and higher missions (push left and go 
right; pull back and go down). 

2. Don't use the strategy that some take 
— turning your starship around to get a pur- 
suing enemy. That takes too much time, and 
you may get hit in the process. 

3. If you must turn around (say, to pur- 
sue a distant enemy behind you), turn to 
the left or right, up or down, so the horizon- 
tal or vertical direction indicators (theta and 
phi) become larger in absolute value. For ex- 
ample, if you turn so the indicator changes 
from - 350 to and then from to + 475 
(at which time, the Tracking Computer goes 
to front view), you'll have wasted a lot of 
time. It's better to go from -350 to -475 
first. Keep turning to 0, once in front view, 
to center the enemy. 

4. When turning around from aft to front 
view, an enemy can be as much as 40 me- 
trons farther away. 

5. If an enemy is pursuing you in aft view 
and your engines are on , you can slow way 
down (say, from 6 to 4) and keep firing as 
they approach. If they don't get hit, they'll 
probably pass you by. But , as they pass and 
your screen changes to the front view, you 
can speed back up to 6 or 7 to match their 
speed. This keeps them close to you, so you 
can shoot them when they least expect it. 
A very effective strategy, this does use a lot 
of energy (see "Engines," #1, below). 



Engines. 

1. Don't rely on your engines too much 
in finding the enemy; if they go out, you're 
practically stranded. Conserve fuel as much 
as possible and wait for the enemy to come 
to you. 

2. William Colsher wrote in the Novem- 
ber/December 1980 issue of Compute.' that 
saving energy is one of the most important 
ways to increase your rating. He's right. But 
new players should chase and shoot at the 
same time, so they can practice aiming. 
This will keep most of the enemy in close 
range, where they'll be larger and easier to 
hit. Speeds of 5 or 6 are recommended 
here. In time, players will learn when to 
shoot and when to wait, based on where 
the enemy is on the screen. 

3. Mr. Colsher does not emphasize 
enough that some enemy ships do not at- 
tack you — you have to go after them. The 
need for this can be determined by center- 
ing them in the Attack Computer Display 
and observing the range indicator. If the 
range is getting larger or staying constant, 
you'll have to chase them down with a 
speed of 6 or 7. If the range is getting smal- 
ler, wait them out. 

4. Most enemies travel at or 6. If you're 
chasing one at 6 and the range doesn't 
change (or if you don't catch them soon), 
they're playing cat and mouse widi you. In- 
crease your speed to 7 if you really want 
to catch them. 

5. Sometimes you notice in the Long- 
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Range Scan (or with the Tracking Compu- 
ter) that one enemy is pursuing you from 
the back, while another is standing still, 
dead ahead. By pressing a 4 or 5, you can 
head for the forward enemy and allow the 
other one to catch you. Then blast the one 
you see first and the other soon after. That 
saves a little time and, probably, some 
energy. 

6. Practice moving at speeds of 7, 8 and 
9. Try going this fast and shooting meteors. 
It's tough, but will improve your steering 
and aiming abilities. 

7. Sometimes — at high speeds — it's im- 
possible to turn around and face in anoth- 
er direction with the Tracking Computer 
on. You must stop all your engines, turn 
around, then turn on the engines again. 

8. If you need to destroy your starbase 
or an enemy starship quickly, don't hesitate 
to use a speed of 8 or 9. The loss of energy 
is small when weighed against the loss of 
a starbase to Zylon ships. 

9. A speed of 9 with damaged engines 
is the same as a speed of 7 with normal en- 
gines. Use this factor to catch a fleeing 
enemy. 

10. If your engines do get destroyed while 
your enemy is 300 metrons away and not 
approaching you, you can catch the ship 
using your Long-Range Scan and hyper- 
warp. Simply set up the enemy directly in 
front of you with the Long-Range Scan (see 
"Long-Range Scan," #6). Then press the H 
key and steer toward that ship, so that it re- 
mains in front of you till it's in the first 
third of the screen in front of your location 
(you're still in Long-Range Scan). Now 
press any number key and the F key. The 
enemy should be within visual range. This 
will cost you only about 100 mergs (units 
of energy) , the same amount you'd use with 
your engines working to take out an ene- 
my at the same distance — but this method 
is considerably faster. You'll have to experi- 
ment with this to get it to work for you. 

11. Use the above technique, but, instead 
of pressing a number key to coast toward 
the enemy, time the pressing of Ihe num- 
ber key so that the enemy will pass by you 
a bit and have to catch up later. This may 
avoid your getting blasted from the front. 

12. If your engines and Long-Range Scan 
are both destroyed, you can use hyperwarp 
in short bursts to catch an enemy or to get 
closer to a starbase. Be sure to keep an eye 
peeled for a passing Zylon starship or star- 
base. Be careful, or this can waste a lot of 
time and energy. 

13. Destroyed engines operate at a nor- 
mal speed of about 5 when any key from 
5 to 9 is pressed. Keys from 1 to 4 produce 
speeds just smaller than your normal 1 to 
4 speeds. 

Galactic Chart. 
1. The enemy will move on Star Dates in 
x.00 and x.50, except 0.50 and for 100 cen- 
tons after surrounding a starbase. It's help- 
ful to know this when you're starting a new 



game or wiping out the enemy around a 
starbase — they (and all other Zylon star- 
ships) sit and wait for 100 centons, even if 
the starbase is no longer surrounded! 

2. Normally, when beginning a hyper- 
jump, it takes about 8 centons to complete. 
Thus, the Star Date should not be in the 
ranges of x.42 to x.49 or x.92 to x.99. How- 
ever, it's possible to speed up your travel 
time by remaining with the Galactic Chart 
on-screen for a few seconds. This can re- 
duce travel time by 1 or 2 centons, but be 
careful in missions above Novice — you may 
not be able to recenter the target marker 
quickly enough to get to the proper sector. 

3. Enemy starships line themselves up 
horizontally and vertically, with a starbase 
first. They then move in a straight line to- 
ward the base to surround it. They seldom 
move diagonally (see "Galactic Chart," #11). 

4. Enemy ships do move diagonally when 
traveling around a starbase. 

5. Zylon starship sectors of 1 or 2 enemy 
ships (patrol groups) usually move every 50 
centons. Use this to predict their travels. 
You decide if you'll have time to destroy a 
4-Zylon sector. You might decide to aim for 
a blind sector if your Sub-Space Radio is 
out, or if you didn't watch the clock well 
(refer to "Galactic Chart," #2, above). 

6. If the enemy seems to be converging 
on a starbase on the left and the Zylon star- 
ships are on the right, most patrol groups 
will move toward the base in a horizontal 
or vertical line. Thus, you can predict the 
enemy's next sector. Use this information 
to plan your next move when die Star Date's 
about to change ("Galactic Chart," #2, a- 
bove), or while waiting for a distant Zylon 
starship in your sector (see "Galactic Chart ," 
#8, below; also see #11 for the reason why 
and the movement of Zylon starships in the 
other direction). 

7. The enemy will most often move to- 
ward a group of starbases, rather Uian a lone 
one. But that doesn't mean that they never 
go for the lone bases. 

8. If you're waiting for the final Zylon 
ship in a sector to approach and attack, use 
the Galactic Chart to plan and position your 
next move. After destroying the Zylon star- 
ship — and if the Star Date permits (see 
"Galactic Chart," #2) — you can hyperjump 
without looking at the chart again. This can 
save time and energy. 

9. When you've been in a sector for a 
considerable amount of time, consider up- 
dating the Galactic Chart. You can do this 
quickly by typing GF. The fraction of a sec- 
ond that the chart is on will be enough to 
update it. You won't miss too much action, 
and you'll be able to avoid problems should 
your Sub-Space Radio go out. 

10. Also, type a quick GF when a star- 
base is first surrounded and you choose to 
finish clearing the sector you're already in. 

11. The Zylon starships in the Galactic 
Chart are positioned from the left side of 
the top row. Each sector is placed or left 



alone, through to the last sector in that row. 
Each row is positioned in this way, with the 
sector in the lower right located last. If a 
series of enemies is traveling toward a star- 
base on the right, the leftmost Zylon star- 
ship sectors will move diagonally. If the 
Zylon starships are clumped to the right, 
moving toward a starbase on the left, all 
sectors could move as a group. 

12. When you've eliminated most enemy 
sectors and enemy ships are grouped, use 
the rook-mate strategy of chess — don't al- 
low any enemy to pass a chosen horizontal 
or vertical line in the chart. Slowly elimi- 
nate the closest enemy first, eventually 
moving through all enemy sectors. 

13. Groups of four enemy starships are 
slower and don't move often. They're good 
bets for remaining stationary when your 
Sub-Space Radio is out, or when you've for- 
gotten to check the Star Date before select- 
ing hyperwarp. 

Hyperwarp. 

1. When in hyperwarp, the directions say 
that it's necessary to keep the target mark- 
er in the center of the cross hairs. This is 
true only at the critical moment of enter- 
ing hyperspace — that is, when the veloci- 
ty reaches 99 metrons/second . Knowing 
this will allow you to scratch your nose, 
make a quick check of the Galactic Chart 
or do practically whatever you want — and 
still reach the sector you aimed for. 

2. Use as many of your senses as you 
can. Listen to the sound of your engines at 
the moment before entering hyperwarp. If 
you can learn what that volume is. keep- 
ing the tar-get marker in the right place at 
the right time will be easier. 

3. Using jerky wiggles of the joystick is 
the easiest way to steer. Also, better con- 
trol can be obtained by holding the top of 
the stick, rather than the middle. 

4. Mr. Colsher is generally correct in Iris 
rule about not jumping more than four sec- 
tors at one time. The cutoff point actually 
occurs when the hyperwarp energy requir- 
ed changes from 260 to 500 mergs. Use two 
jumps, rather than a single energy-wasting 
one, to get to the desired sector. 

5. If you must use 260 mergs in a hyper- 
jump, be sure to steer carefully, or you may 
go off course by enough to use 500 mergs. 
If in doubt, either set up 250 mergs while 
on the Galactic Chart, or aim back from the 
center of the cross hair a little bit (see 
"Hyperwarp," #8). 

6. Mr. Colsher's rule ("Hyperwarp," #4, 
above) ought to be amended further — don't 
hyperjump too far except in an emergency. 
The emergency might be a surrounded star- 
base or a lack of photons or shields. Just 
don't do it often in a game. 

7. Be extra careful when hyperjumping 
to a sector on die edge of the Galactic Chart. 
A small error in navigation may put you on 
the wrong side of the galaxy, not to men- 
tion causing a huge energy loss. 

8. A little experimentation will show that 
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the book is right: if you position the hyper- 
warp target marker a little off center, you 
can hyperjump to a neighboring sector from 
the one set in the Galactic Chart. This might 
be helpful if your shields go down, or if the 
enemy moves just as you press H. It can 
also be used when you know (or can bet) 
that the enemy will move from where you 
last saw them. Simply aim the target marker 
off center by one or more widths of the 
marker for each sector that you wish to 
move (see Figure 1). You should be able to 
move up to four sectors away with only a 
modicum of experimenting. You could, for 
example, display the Galactic Chart, find a 
nearby enemy or starbase, and hyperjump 
there without doing any positioning on the 
chart. This really speeds up the game. You 
should try this in Novice level first; it's 
much easier there. 



B 



Figure 1. 

If no aim is given, the target marker { + ) is posi- 
tioned off of a normal Galactic Chart aim, or away 
from your present sector — either by two sectors 
to the left (A) or by three sectors to the right and 
one up (B). 

9. Not only can't you shoot in hyperwarp, 
but you can't be shot at. At least, you can't 
be shot at as long as you've reached a inini- 
mum speed. 

10. When entering an enemy or starbase 
sector, or when seeking out a distant Zy- 
lon ship, use the Attack Computer Display 
and your own hyperjump momentum to 
help steer the ship to the desired location. 
If the target is right or left of center in the 
display, push the joystick in that direction. 
If the target is high, pull back (called "nose 
up"); if low, push forward (called "nose 
down"). It's possible to steer yourself to 
within sight range of a starbase more often 
than not by using this method. 

11. Use hyperwarp within a starbase sec- 
tor to get to your goal faster. This is espe- 
cially handy with distant starbases and/or 
destroyed engines. Use your engines for 
docking maneuvers as needed. 

12. In hyperwarp, the range indicator will 
work for distance to a starbase in your sec- 
tor, but not for distance to an enemy. 

13. During hyperwarp, the Sub-Space Ra- 
dio doesn't update the Galactic Chart. If a 
starbase is surrounded because of poor tim- 
ing, you will have to change course (see 
"1 lyperwarp," #8), do a quick check of the 
Galactic Chart (see "Pause Key," #2), or can- 
col the hyperwarp. 

14. If your Tracking Computer goes out, 
steering to another sector in hyperwarp can 
be difficult. The center of the screen — 
where the tarket marker is supposed to be 
— is the point at which no stars appear. You 



can see this easily in Novice level by start- 
ing hyperwarp and turning your Tracking 
Computer off. The target marker will be 
positioned correctly. 

Long-Range Scan. 

1. Another way of centering an enemy, in- 
stead of the Attack Computer Display, is the 
use of the horizontal and vertical displays 
on the Long-Range Scan screen. By adjust- 
ing them both to 0, you'll find the target 
is straight ahead (see "Long-Range Scan," 
#6, below). 

2. On the Long-Range Scan, little orange 
rectangles represent the Zylon starships and 
a "dummy starship." Which is which? The 
one that disappears and reappears occasion- 
ally is the dummy, so go after the other one. 

3. The orange rectangles that shoot or 
move rapidly are the enemy. 

4. When in a starbase sector, the rectan- 
gle changes to a starbase shape. 

5. When you've no better clues as to 
which rectangle is the dummy (and your 
Tracking Computer is out) go from L to G 
or F, and then back to L. If one of the rec- 
tangles moved drastically and isn't moving 
much now (or has disappeared), it is prob- 
ably the dummy. 

6. If your Tracking Computer is destroy- 
ed, it's still possible for you to get closer 
to a starbase or the enemy. As soon as 
you've entered the sector, press L. What- 
ever you're searching for will come into 
view on the Long-Range Scan screen. Po- 
sition it in the top half of the screen, direct- 
ly in front of your ship by pushing the joy- 
stick left or right. Then move the stick for- 
ward and backward to "stretch out" the 
target — to get it to its maximum distance 
from you. (This is the same as being in the 
center of the Attack Computer Display in the 
front view.) As soon as the target is close 
to the center of the Long-Range Scan, go 
to the front view and dock or shoot, what- 
ever is appropriate. 

7. Apparently, it's not possible for both the 
Tracking Computer and Long-Range Scan 
to be destroyed together. At least one will 
be usable to locate an enemy or a starbase. 

8. Of course, a destroyed Long-Range 
Scan won't tell you where the enemy ships 
are, but it will tell if there are none, one, 
or (at least) two of them in your sector. Just 
count the little orange rectangles. One is a 
dummy; any others are Zylon starships. 

Manual Target Selector. 

1. In a sector with more than one Zylon 
ship, don't be tricked, while waiting for one 
enemy, into ignoring another. Use the M key 
and the range indicator to see if another 
enemy is approaching — and to find out 
which one will get to you first. 

2. When entering an enemy sector where 
a large distance must be traveled to catch 
an enemy, use the Manual Target Selector 
to see if a second enemy is closer. If less 
than 400 metrons away, an enemy can 
usually be caught with hyperwarp momen- 



tum (mentioned earlier; "see Long-Range 
Scan," #6). 

3. Sometimes you can cause an enemy 
to approach you by using the M key. It's as 
if they realize that they're being "scanned," 
so they decide to attack. 

4. When all Zylon starships in a sector 
are killed, the Manual Target Selector will 
switch to two different values. Don't be con- 
fused and start looking for non-existent 
enemies. 

Pause Key. 

1. You can use the pause key (P) to tem- 
porarily stop the game action and plan an 
attack strategy. However, some purists may 
find this a form of cheating. 

2. Use this key if you've just entered 
hyperwarp, then received notice of a sur- 
rounded or destroyed starbase. To do this, 
type GP quickly and don't touch the joy- 
stick. Determine what your move should be, 
realizing that the Galactic Chart hasn't been 
updated since you saw it last (see "Hyper- 
warp," #13). Plan on using offset navigation 
of the target marker (see "Hyperwarp," #8), 
then press the F key before moving the 
stick, so you can start steering as soon as 
you disengage the pause. Of course, if you 
decide to cancel hyperwarp, press a num- 
ber key and move the joystick. 

3. If you pause long enough, the enemy's 
strategy may change. Many times a Zylon 
ship that won't pursue you when your en- 
gines are out will pursue you after several 
minutes on pause. This may only be a coin- 
cidence (it doesn't happen every time), but 
it's been observed after many unplanned in- 
terruptions. 

Photons — yours and theirs. 

1. You can't hit an enemy often by just 
shooting. You need to steer with the joy- 
stick, then fire. It takes a coordinated ef- 
fort, frustrating many beginning players. 

2. Zylon starships can shoot only one 
photon at you at a time. You, however, can 
shoot photons two at a time. 

3. It's best to shoot in bursts of two. With 
the photons coming out of alternate tubes, 
you may forget which one will fire next. 
By shooting twice, you can guarantee that 
the tube you want to fire will. 

4. Many times an enemy is destroyed just 
after they've shot at you. Don't get caught 
by that last shot. Either get out of the pho- 
ton's way or shoot it down. too. 

5. The cross hairs in the front and aft 
views are set for distant shots. The closer 
the enemy, the lower the ship must be in 
the view screen for you to hit it directly 
with a photon. Seldom can an enemy be 
hit above the horizontal cross hair (but see 
"Photons," #12). You can check this by fir- 
ing two shots very quickly and freezing 
them with the P key. You can continue to 
release and freeze them by alternately mov- 
ing the joystick a small amount and then 
pressing P again. 

6. When an enemy keeps matching you 
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with photon after photon, only to have them 
both explode, there are two ways to hit that 
ship. First, wait for the enemy's photon to 
come very close to you — but low enough 
so that it will pass without damage. Then 
fire away. The photons will pass each oth- 
er, with yours striking the enemy. 

7. The second way to get around this pro- 
blem is to turn your ship to the left or right, 
so the other photon tube can be used to hit 
the enemy ship. It's as if the enemy keeps 
blocking your right jabs, then gets punched 
with your left hook! 

8. A long, distant shot coming toward you 
(especially in Command level) can be hard 
to avoid or destroy. Normal reaction for a 
high photon is to pull back on the joystick, 
going nose up. Instead, do the reverse: push 
forward after shooting your photon. If you 
time it right, your shot will float up and 
strike the enemy's photon. 

9. The only time a photon of yours will 
curve up by itself is when the enemy is dead 
center and very close, called "lock-on" in 
the manual. Both photons fire in this con- 
dition. Don't try to create this condition. In- 
stead, learn how to kill an enemy with 
single shots when you're ready, rather than 
waiting for the ship to reach the right po- 
sition. 

10. One time that lock-on is effective and 
frequent is in combatting an enemy at point- 
blank range. Usually, each single shot blocks 
one of the enemy's. When double shots are 
sent out, one usually blocks an opponent's 
shot, while the other takes out the starship. 
Sometimes, when a shot misses the enemy, 
this process requires three or more pairs 
of shots. 

11. When shooting the enemy at long 
range, give your photons enough time to 
reach the Zylon starships before shooting 
again. With the game only being able to 
keep track of two photons — one from each 
photon tube — at a time, you don't want to 
waste a perfect shot by shooting again. You 
can see this in the Long-Range Scan by fir- 
ing twice, waiting a few seconds and fir- 
ing again. The farthest photon will dis- 
appear first. 

12. It is even possible to steer a photon 
after it has been fired! You can prove this 
by firing a photon and then moving the 
joystick to the right or left. If you hold the 
stick this way long enough, you'll see the 
photon cross to the opposite side of the 
screen! By causing a nose-down action in 
front view (joystick forward), you can make 
a photon go above the horizontal cross hair. 
With practice, you can direct shots to hit 
enemy starships at great distances — and on 
opposite sides of the screen. Using this will 
save time and energy by destroying the ene- 
my more quickly. 

13. Here's how to shoot and steer upon 
entering a sector. First, use the Attack Com- 
puter Display for initial steering (see "Hy- 
perwarp," #10). Then, watch the range to 
the enemy. When it is less than 200 me- 



trons, shoot two shots. If you can see the 
enemy, steer one of the shots toward them. 
But don't waste your time and energy fir- 
ing ten or twenty times at nothing. 

14. Don't try to hit an enemy in Long- 
Range Scan. You won't be successful often 
enough to make it worth your while. 

15. Shooting at an enemy farther away 
than 120 metrons may put them into attack 
mode. They will then come to get you. Try 
this in front view and in Long-Range Scan, 
too. 

16. If a Zylon starship shoots and is de- 
stroyed, but your Tracking Computer chan- 
ges views, you may need to avoid the 
enemy photon. To do this, turn away from 
the photon hard! After you're sure the pho- 
ton has passed you, you may continue your 
attack on the next starship. 

17. If you listen carefully, you may notice 
a slightly different sound when you fire a 
photon after your photons have been dam- 
aged. The sound has a slightly deeper pitch. 

18. If in a heavy battle, where new dam- 
age to your ship has just occurred, fire one 
or two photons to make sure they're still 
working. Don't wait for the damage report 
and a Zylon ship to start attacking. 

19. If your photons are damaged, it can 
be difficult to destroy a close Zylon star- 
ship on the same side as the damaged pho- 
ton tube. What you need to do is keep the 
enemy low on the screen, as you move your 
ship to position enemies on the other half 
of the screen. Usually, they'll still be shoot- 
ing in the same direction as they have been. 
As soon as they shoot, and when they're 
right in front of the working photon tube, 
blast away! 

Shields. 

1. You're always two shots or less from 
death: one for your shields and one for you. 
Be prepared to go into hyperwarp quickly 
when your shields go out, or you may die 
trying. 

2. If your shields go out, press H as 
quickly as possible. Don't worry about view- 
ing the Galactic Chart. Just get out of there! 
When you have more time to think, move 
to a starbase with the help of the chart, and 
get your shields repaired. (Also, see "Pause 
Key," #2.) 

3. If your shields are destroyed and you're 
not being blasted by a close enemy, you 
might want to stay put and clear the sec- 
tor. When that's been done, or if a more haz- 
ardous situation develops, by all means get 
out fast. 

4. If your shields are destroyed and you 
choose to play more, turn them off. It makes 
the screen easier to read and stops wast- 
ing valuable energy. Getting hit with no 
shields is the same as getting hit with de- 
stroyed shields. Just remember to turn them 
on when docking is over. 

5. If your shields are out, don't use your 
engines unless you're in front view. A me- 
teor may destroy you. 

6. Before leaving a sector with no shields, 



type F and the H, rather than the other way 
around. You may be able to avoid a meteor 
on your move. If the aft view appears, your 
forward path should be clear. 
Starbases. 

1. Games in which all the starbases are 
grouped together are easier to win than 
those in which they're spread out. After try- 
ing to surround one starbase and failing, the 
enemy will move to another that is, in this 
case, close by. Some players may consider 
this cheating, but it's a good temporary 
strategy. 

2. You need to get close to a starbase to 
dock, but how close? When you see three 
windows on each side of the starbase, stop 
your engines and move the joystick until die 
Docking Completed message appears. 

3. It takes 16 centrons to complete repairs 
after docking. Use this and the time to en- 
ter and exit (8 centrons each) to decide 
when to destroy a surrounded starbase 
yourself, when to stay docked , or when to 
attempt a docking. There's also a varying 
amount of time to locate a starbase and 
dock with it. 

4. Docking too often wastes time and 
energy. Use the following priority list for de- 
cisions on docking: (1) photons destroyed; 
(2) shields destroyed; (3) Sub-Space Radio 
destroyed; and (4) other problems. (See 
"Shields," all paragraphs, and "Sub-Space 
Radio," #7, for more details and suggestions. 

5. While waiting for repairs at a starbase, 
use the Galactic Chart to plan your next 
move. Then hyperwarp as soon as docking 
is completed. 

6. There are no meteors in a starbase sec- 
tor, so turn your shields off when in these 
sectors to save energy. After docking, re- 
member to turn them back on. 

7. To save energy when docking, turn off 
the Tracking Computer, as there's no need 
for it once the starbase is in sight. After 
docking is over, be sure to turn it back on. 

8. It's possible to steer your ship with the 
momentum of hyperwarp directly to your 
starbase. If your range to the starbase upon 
entering the sector is 300 to 400 metrons, 
you can usually do it (see "Hyperwarp," 
#10). Practice. 

9. If your hyperwarp momentum appears 
to be too fast and the starbase too close to 
dock, you can add some traveling distance 
by porpoising. This is done by making your 
ship go up and down several times very 
quickly. Do this by pushing forward and 
back on the joystick, quickly. In Figure 2, 
you can see that your starship will climb 
and drive to add the needed distance and 
avoid passing the starbase. 

10. If a starbase is about to be totally sur- 
rounded, you can attack early. By entering 
a sector next to that starbase, you can be 
destroying the enemy before the starbase 
is surrounded. You will then have a little 
less than 100 metrons to destroy the now 
stationary Zylon sectors. 

11. When a starbase is surrounded, go 



84 ANALOG COMPUTING 



ATARI 8-BIT EXTRA 



STARBASE 




PATH 2 



Figure 2. 
The side view of your entering the sector from 
ihe left demonstrates two paths: Path 1 shows nor- 
mal entry and passing the starbase; Path 2 shows 
porpoising action to shorten overall travel dis- 
tance, to keep the starbase in front of your ship 
and, possibly, to complete docking maneuvers. 

after the groups of three or less Zylon star- 
ships. You need to be very skilled and have 
a lot of time to take out a group of four. 

12. If you have just barely cleared a sec- 
tor around a surrounded starbase and need 
to dock for repairs, it may be to your ad- 
vantage to wait for the next Zylon starship 
movement at star date x.50 or x.00. By your 
staying there, the Zylon starships can't 
completely surround that starbase on that 
move. This will give you at least 150 me- 
trons to hyperwarp, dock, hyperwarp 
again, and destroy another enemy sector 
before the starbase could be surrounded 
again and destroyed. 

13. If a starbase has been surrounded for 
too long and its destruction is inevitable, 
do it yourself. 

14. It's possible for more than one star- 
base to be surrounded at one time. This 
can happen when the two starbases are 
close together and several enemy have con- 
verged on the area. To prevent a double 
loss, destroy the Zylon starships in an in- 
tersecting sector as in Figure 3, below. 



^|;v 



Figure 3. 
Two starbases (S) are surrounded. To save them, 
attack either common sector with three Zylon 
starships. 

15. Suppose your starship is badly 
damaged: your Long-Range Scanner and 
Tracking Computer are out, so navigation 
is difficult. You decide to go to a starbase, 
but have always had trouble finding them. 
Don't worry! Most of the time you'll come 
within visual range of a starbase after a 
hyperjump. 

16. When all starbases have been de- 
stroyed, the enemy stop moving. Use your 
last Galactic Chart as a guide. All will not 
be lost now if your radio goes out, but you 
won't make Star Commander this way. 



Sub-Space Radio. 

1. If a starbase is surrounded or destroy- 
ed just before you receive some damage 
or hyperjump into an enemy sector, the 
sound (and, sometimes, the word mes- 
sages) about the starbase will be bypassed 
for the new message. 

2. If your Sub-Space Radio is damaged, 
it still functions but doesn't update the 
Galactic Chart. Simply move through the 
chart with the joystick and watch the num- 
ber of targets indicator. As long as it's zero, 
keep searching. 

3. Although you can find enemy sectors 
with a damaged radio by using the targets 
indicator, a lot of time can be wasted. Also, 
you don't get the big picture of enemy 
movement . 

4. With a damaged radio, you must be 
careful. You won't be able to see if any star- 
base is about to be surrounded or de- 
stroyed. Of course, you will be notified by 
word message and beeps, when one is af- 
fected. 

5. If a starbase is surrounded while your 
radio is damaged, you can use the Galac- 
tic Chart and still find which one. Watch 
the targets indicator while searching the 
sectors around each starbase. If any sec- 
tor has no enemy, look around another star- 
base. And if the starbase is adjacent to a 
second starbase, make sure the second 
one's not surrounded, as well (see "Star- 
bases," #14). If it is, attack any sector of 
common enemy Zylon starships, no mat- 
ter how many there are, or you'll lose one 
or both starbases. 

6. With a damaged radio, you won't 
know of starbases that have moved since 
the last chart update. Otherwise, assume 
that they're as shown on the chart. 

7. If your radio gets blasted, go ahead 
and get some more enemy before docking. 
But don't wait too long or get too greedy — 
you may discover that one or more star- 
bases have been surrounded or destroyed 
while you were fighting! 

Tracking Computer. 

1. Turning on your Tracking Computer 
will help in shooting and in locating ene- 
my Zylon starships. Use the crosshairs as 
a guide in aiming your shots. 

2. The instruction book does not recom- 
mend the use of the Tracking Computer in 
Novice level, probably to reduce player 
confusion and because the enemy won't at- 
tack from behind you. When used at this 
level, however, you can shoot at the ene- 
my in the aft view whenever possible. This 
can be helpful, as they can't block your 
shots in this view. (See "Zylon Starships," 
#2 and #4). 

3. The automatic tracking system of the 
Tracking Computer doesn't use any extra 
energy. It will change the screen to front 
or aft view, to show the direction of the 
enemy who fired last. The only shortcom- 
ings occur in a crossfire (see "Zylon Star- 
ships." #19, #20, and #21) or when one 



enemy shoots and gets killed, but their 
shot still hits after your view switches (see 
"Photons," #16). 

4. You don't need to center an oncom- 
ing enemy with the Attack Computer Dis- 
play. For the most part, Zylon starships are 
"self-centering" on the attack — they sel- 
dom go for your blind sides. 

5. Don't look at the Attack Computer Dis- 
play when the enemy is in visual range; 
look at the enemy directly. The display 
should be used when searching out distant 
enemies (see "Tracking Computer," #6, 
below). 

6. If a distant enemy or your starbase 
goes off the screen, steer in the direction 
of the Attack Computer Display. If the im- 
age is in the lower left, for example, push 
the joystick to the front and left. Your ship 
will start pointing toward its object and, 
eventually, face the centered and/or visi- 
ble target. 

7. Don't pursue a distant enemy totally 
through the use of the Attack Computer 
Display. You may ignore a meteor or a sur- 
prise attack by a second Zylon starship. 

8. By using the Attack Computer Display 
with a damaged Tracking Computer, you 
can still get to a target, but you won't be 
able to use the number displays at the bot- 
tom of the screen. Instead, try to get the 
target centered in the Attack Computer 
Display. Then (or even while centering) use 
your engines to get to the target (see "En- 
gines," #4 and #9). Practice helps. 

9. When your Long-Range Scan is de- 
stroyed, you can still find an enemy or 
your starbase with a partly or fully func- 
tional Tracking Computer (see "Tracking 
Computer," #10, below). If the Tracking 
Computer is working, position the target 
in front of you (front view screen and a 
positive distance away). Then position it 
to the center of the Attack Computer Dis- 
play and, with the horizontal and vertical 
indicators on the screen set to about 0, en- 
gage your engines (or Hyperwarp as 
described in "Engines," #12), and steer 
with the target centered. 

10. When your Tracking Computer is de- 
stroyed and you're waiting for an enemy 
to attack, be sure to occasionally flip back 
and forth between front and aft views, or 
you might be surprised by another Zylon. 

11. If your Tracking Computer is destroy- 
ed, it has to be turned on again after be- 
ing repaired at a starbase. This is the only 
device that needs action when destroyed 
and repaired. 

Zylon Starships. 

1. Know how many Zylon starships are 
in a sector when you enter and count them 
as they're killed, so you won't get hit by 
surprise or exit too soon. 

2. If you're playing at Novice level, you 
don't have to pursue the enemy in the sec- 
tors — they'll come to you all of the time. 

3. Most of the enemy will come to you 
in the other missions, too, if you give them 
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a chance. If the numbers are getting closer 
to in the range indicator, then sit back 
and wait. 

4. If the enemy were visible on-screen 
at one time in Novice level (and sometimes 
in other missions), but can't be seen now, 
do not move to find them. Stop all move- 
ment with the joystick and engines (press 
to stop engines) , and let the enemy come 
into view. They'll become visible again in 
either front or aft view, unless you've out- 
run them. 

5. Some enemy will seem to be coming 
toward you and ready to attack. At a range 
indicator value of about 150 and 450 me- 
trons, they stop and reverse directions. 
Now you must pursue them at a speed of 
7 or more. 

6. When an enemy is centered in the At- 
tack Computer Display, it will be visible in 
the view screen at about 120 metrons, us- 
ing the range indicator. 

7. When an enemy first appears on the 
screen, it will show up as a yellow dot (just 
smaller than a white star) that usually 
moves against the background of stars. 
This is most evident when you're not mov- 
ing, but it can be detected at any speed or 
time (including Hyperwarp deceleration, 
even if the screen is flashing red and blue 
— watch carefully). Many players don't 
concentrate enough to see this. 

8. Before some ships appear on the 
screen, a meteor is seen. This is like a de- 
coy. Don't attack it; you may be caught by 
surprise by the Zylons. Instead, just sit 
tight and get ready to shoot at the correct 
target. 

9. Don't always shoot at the meteors. 
They can indicate that an enemy's near- 
by; when a Zylon starship shoots a pho- 
ton, all meteors disappear. 

10. Many of your distant shots can get 
blocked by an enemy shot, and a cloud of 
debris hides the enemy. Don't let these fool 
you. The enemy will stay hidden as long 
as possible, attacking when (and from 
where) you least expect it. This cloud can 
also be created by blasting one enemy, only 
to have another hide in the dust. If you 
have the Tracking Computer on, there'll be 
little doubt of killing the enemy — the 
Tracking Computer will automatically 
switch to the opposite view screen if the 
enemy was blasted and a second enemy is 
in the other direction. 

11. With practice, you can predict a Zy- 
lon starship's path before he makes it! 
Many times they'll move right into your 
shots after you've made them. For exam- 
ple, if a Zylon starship is hovering for a 
long time in the top half of the screen, his 
next move has to be down. By shooting 
first (before he crosses the middle of the 
screen), most times you'll destroy him 
through his own navigation. 

12. Some Zylon starships enter high on 
the screen and shoot before crossing the 
horizontal line in the crosshairs of the 



Tracking Computer. The solution? Let 
them cross that point when off of center 
so that their shot will miss you. Then, re- 
position them below the horizontal line 
and blast away. Or go after the shot first, 
then the enemy. 

13. Basestars can be destroyed at close 
range, usually with one shot. Getting them 
into position is hazardous at times, as well 
as difficult. A conservative way of destroy- 
ing them is to keep firing and hitting them, 
even though they're too far away. It's as if 
their shields weaken with repeated attacks, 
until they're finally destroyed with what 
seems the weakest of hits. 

14. Another time that lock-on is effective 
(see "Photons," #9 and #10) is on first ap- 
proach of a Basestar in Novice through 
Warrior missions. Their first attack is 
straight down the center. That will be their 
last attack, if you wait patiently to time it 
right. In Commander level, they fire soon- 
er, making it a little more complicated — 
you may get them or their shot, but sel- 
dom both. 

15. Basestars can also be positioned for 
destruction very nicely. Shoot while chas- 
ing them at speeds of 6 or 7. It does take 
some practice to steer while moving at 
such speeds. Try working up to those 
speeds and higher by practicing with 4 
and 5. (However, see "Engines," #1 and 
#2.) 

16. Another way of blasting a Basestar 
is by hitting their photon just as they fire 
it. The combination of both photons ex- 
ploding so close is too much for their 
shields. However, this is a strategy of coin- 
cidence and luck. 

17. Shoot at enemy Basestars at long 
range, even if there's little chance of kill- 
ing them. You will at least keep them "in 
your sights" and also be blocking their 
shots, when made. 

18. Enemy ships have various strategies, 
including the following: 

(a) Pursue you at all cost (see "Zy- 
lon Starships," #3 and #4); 

(b) Avoid you at all cost (see "En- 
gines," #3 and #4); 

(c) Remain stationary and out of 
range (see "Engines," #3); 

(d) Travel back and forth at a dis- 
tance from you (see "Engines," #3 and 
#4); 

(e) Attack when centered with the 
Attack Computer Display or when 
scanned using the M key (see "Manual 
Target Selector," #3); 

(f) Sit under your nose at about 15 
metrons distance and wait foi j sneak 
attack; 

(g) Always attack in front view; 
(h) Always attack in the aft view; 

and 

(i) Two enemy in a crossfire (see the 
next three entries). 

19. The Tracking Computer can be dis- 
asterous in a crossfire, if you aren't care- 



ful. There are several things that you can 
do to get out of a crossfire. First, turn off 
the Tracking Computer and concentrate on 
one enemy. When they've been blasted, 
turn the Tracking Computer back on and 
blast the other one. 

20. Second, press 8 or 9 and get out of 
there! After a few seconds, press 0. Sit and 
wait for them to catch you in aft view — 
they almost always will — and blast them 
as they show up. 

21. Third, concentrate on one of the pair 
of enemy, but leave the Tracking Computer 
on. Avoid getting hit by the other Zylon 
starship, but don't attack them. Whenever 
lacing the chosen enemy, concentrate on 
its destruction. The problem in a crossfire 
is that so much time is wasted in reposi- 
tioning for each player that it's too late 
when the enemy's finally in your sights. At 
that time, the other enemy usually fires, 
causing the Tracking Computer to change 
views and mess up your aim. 

22. If a mass of enemy is moving toward 
a distant starbase on the opposite side of 
the Galactic Chart, you can use one of two 
strategies. The first is to attack the slowest 
sectors and gradually destroy all of them. 

23. The second is to attack the fastest 
and forward-most sectors. By always de- 
stroying the leaders, you keep the enemy 
nearer to you and avoid a surrounded star- 
base. This method works best with either 
a slow-moving or small group of enemy. 

24. If a starbase is surrounded and 
you're on the other side of the galaxy, you 
need to get there fast — but efficiently. Us- 
ing the small-jump method (see "Hyper- 
warp," #4 and "Zylon Starships," #25) with 
the shoot-and-fly method (see "Hyper- 
warp," #10 and "Miscellaneous Strategies," 
#2), you can reduce (and sometimes elim- 
inate) the enemy in other sectors as you 
go, and still have time to save your star- 
base. 

25. Use checkerboard-type jumping to 
move across the galaxy (see Figure 4, be- 
low). This will work in destroying isolat- 
ed sectors of Zylon starships and in hurry- 
ing to save a distant starbase (see "Zylon 
Starships," #24). 

26. Sometimes an enemy on one edge 
of the Galactic Chart moves to the other 
edge. This is a problem if all of the enemy 
are on one side of the Galactic Chart — 
you'll eventually have to travel the length 
of the galaxy to get them. (Too bad you 
can't just go over the edge for as little ener- 
gy as a single sector.) The solution is to get 
them before they can move. When you 
have a choice, get the enemy on the edge 
of the galaxy rather than the enemy one 
or two sectors in from the edge. 

27. If you're having a hard time catch- 
ing or blasting an enemy, it's possible to 
get a different enemy (or enemy strategy) 
by leaving the sector and coming back im- 
mediately, or later in the game. Some pur- 
ists may find this a form of cheating. Use 
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it at your own discretion, and realize that 
you will use extra energy to do it. 

28. Don't get blasted with less than three 
sectors of Zylon starships. Sure, no star- 
bases can be destroyed, but you can be! 
You're always two shots or less away from 
destruction — one for your shields, and one 
for you. 
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Figure 4. 

Using checkerboard jumping, you can get to the 
other side of the galaxy and clear several sectors, 
too. Do it in this example by traveling left to right 
(toward the starbase in the upper left), through the 
nearby sectors with 4, 3, 2, 4, and 3 Zylon star- 
ships. 

Miscellaneous Strategies 
and Variations. 

1. Various strategies for destroying all 
enemy sectors on the Galactic Chart can be 
used. Generally, start in one area and try 
to eliminate all sectors. Then, gradually 
move through other enemy sectors while 
travelling toward the starbase that will ap- 
parently be surrounded. Of course, if the 
base is surrounded , a more defensive strate- 
gy is needed to save it (see "Commander 
Mission," #1 for a specific application.) 

2. Change a 4-enemy sector to a 3- or 2- 
enemy sector, to help them move together 
faster if you don't have time to clear the sec- 
tor. Generally, kill only the one or two Zy- 
lon starships that first appear. Don't wait too 
long for them to get to you. 

3. Learn the keyboard positions by feel, 
rather than by sight. Do this at least for the 
F, G and H keys, as they're used most often. 

4. Learn to steer with the joystick using 
one hand, so your other hand can work the 
keyboard. This will help in positioning in 
the Galactic Chart, Long-Range Scan, and, 
sometimes, in front and aft views. It 
shouldn't be necessary to do this for very 



much of a game — just some parts of it. 

5. If the Galactic Chart is poorly arranged 
or your ship is damaged very quickly, you 
can always press START. This may be con- 
sidered a form of cheating, but we all tend 
to do better with positive feedback and 
success. 

6. If a series of consecutive games is quite 
hard to win, little change in enemy strate- 
gies or destructive resistance will occur 
upon pressing START or SYSTEM RESET. 
You may have to turn off the computer for 
a few seconds and try again that way. 

7. If you get tired of regular play, try some 
variations in game play and goals. Can you 
complete a Novice game without any 
shields? Can you earn more than a Lieu- 
tenant Class 1 this way? And how many 
enemy can you destroy in the other levels 
without dying? 

8. Once you've made Star Commander 
Class 1, you can try for the most games in 
a row with that rating. Can you triumph 
in fourteen consecutive games without quit- 
ting in the middle or getting destroy- 
ed? 

9. The game can be made into a 2-play- 
er game. One player uses the joystick and 
calls out commands for the other to carry 
out on the keyboard. The commands could 
be "Galactic Chart," followed soon by "Hy- 
perwarp — front view." This is good train- 
ing for an inexperienced player, who can 
control the keyboard while watching and 
learning. 

10. Reread the instruction manual. You'll 
probably learn many more details that you 
missed in your first reading. 

Commander Mission. 

1. In Commander level, an effective 
strategy is to destroy all the four-Zylon- 
starship sectors you can before a starbase 
is surrounded. This works well because 
the other enemy will move more easily to 
surround the starbases. But four-Zylon- 
starship sectors move so seldom that they'll 
almost always be in the same general area 
where they started. By eliminating them 
early, you'll make many parts of the gal- 
axy free and clear, and the enemy will be 
grouped for easy travel from sector to sec- 
tor on little energy. 

2. It's possible to earn Star Commander 
Class 1 and have a starbase destroyed by 



you or the enemy. Don't give up after one 
is lost, but don't plan on the top rank after 
the loss of two! 

3. It's also possible to complete a game 
without docking. Your energy level can get 
very low, so be careful. You're almost as- 
sured a top ranking this way. 

4. It is possible to be destroyed and earn 
a Star Commander Class 1 rating. Very few 
enemy are usually left alive, and your 
shooting during the game was otherwise 
superb. 

5. The last sector is usually the most dif- 
ficult to clear. It may take several attempts 
at Commander level just to complete. 
Sometimes there will only be one ship left 
to destroy before your own demise. 

Conclusion. 

If you seem to be in a rut in an advanced 
mission and can't get any high scores, try 
an easier mission! By practicing in the low- 
er games, you can improve some of your 
skills. On returning to the harder levels, 
you'll probably do better. And don't think 
that you'll still be as good next month as 
you are now. You're going to have to warm 
up or keep practicing to maintain your 
skills and ratings. 

Don't be afraid to experiment. After all, 
Star Raiders is only a game. And, unless 
you have a winning streak going, it's okay 
to try some of these ideas and incorporate 
them into your overall game play. Or, per- 
haps you want to see if you can improve 
your aim in aft view, or make some im- 
provements in docking by going back and 
forth between starbases. If you get blown 
up or run out of energy, press START and 
keep flying! H 
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Attention 
Programmers! 



ANALOG Computing is interested in programs, articles, and software review sub- 
missions dealing with the Atari home computers. If you feel that you can write as well 
as you can program, then submit those articles and reviews that have been floating 
around in your head, awaiting publication. This is your opportunity to share your knowl- 
edge with the growing family of Atari computer owners. 

All submissions for publication, both program listings and text, should be provided 
in printed and magnetic form. Typed or printed copy of text is mandatory and should 
be in upper and lower case with double spacing. By submitting articles to ANALOG 
Computing, authors acknowledge that such materials, upon acceptance for publica- 
tion, become the exclusive property of ANALOG Computing. If not accepted for pub- 
lication, the articles and/or programs will remain the property of the author. If submissions 
are to be returned, please supply a self-addressed, stamped envelope. All submissions 
of any kind must be accompanied by the author's full address and telephone number. 

For those of you who are sincerely interested in the rules and regulations for publica- 
tion, we've taken this opportunity to print our guidelines for authors. See page 128 of 
this book for everything you'll need to know. 



Send your programs and articles to: 
Editor, ANALOG Computing 

RO. Box 23, Worcester, MA 01603. 
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by David Plotkin 



Pastels is fun to look at. It's relaxing, putting fifteen pas- 
tel colors on-screen at once, in ever-changing patterns. 

As detailed below, several special PROCedures were 
used to speed up the graphics. Action! has become the 
language of choice for many serious programmers, being 
considerably easier than machine language, and outstrip- 
ping BASIC'S performance. 

Pastels is written in graphics 11, the 15-color mode avail- 
able only with the GTIA chip. To understand how the spe- 
cial routines work to speed up the display, you must know 
something about how colors are displayed in graphics 11. 
Each byte on the screen is broken up into two halves (or 
nibbles), with one half containing the lower 4 bits (0 
through 3), and the other half containing the upper 4 bits 
(4 through 7). 

The 4 bits in each nibble can make up a total of sixteen 
different on/off combinations, thus creating the sixteen 
colors. Further, since each byte is broken into halves, the 
first byte on each line corresponds to the screen's x-coor- 
dinates and 1, with the second byte holding 2 and 3, 
and so forth. 

Byte array colors contains sixteen numbers, which cor- 
respond to the sixteen bit-patterns available in each nib- 
ble, from all bits off (0) to all bits on (255). Seventeen, for 
example, is the smallest bit in each nibble (0 and 4) on; 
all others off. 



PROC Grlllnit reads the starting address of each screen 
line into an array of cardinal numbers (CARD) , for later 
reference. 

PROC Plotll actually plots points on the screen much 
faster than does the system PLOT. This is because the first 
is a specialized routine, which will essentially only work 
in graphics 11. Three byte arrays are declared, and they're 
all important. 

The first, (line, will be equated to the y-element of CARD 
array Line, thus pointing tline to the on-screen line we 
wish to change. 

We have mask and mask2 as bitmasks. The first element 
of mask corresponds to all the lower nibble bits being on, 
and the higher nibble bits off. The second element is just 
the reverse (all high nibble bits on, all lower nibble bits 
off). 

The bitmask mask2 just reverses the order of mask's ele- 
ments. In the equation at the end of this PROCedure, the 
tline(x RSH 1) term determines which byte on the chosen 
line corresponds to the chosen x-coordinate. Remember: 
each byte contains two x-coordinates, so it's necessary to 
divide x by 2, to see which byte to modify. 

The RSH operation divides by 2 much faster than does 
the built-in divide routine. The first term — (= =£rmask 
(x&lj) — takes the byte in question and turns off all bits 
on the half of the byte to be modified, by ANDing the byte 
against the mask element. 

The element of array colors containing the color you 
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wish is then ANDed against the mask2 element, to turn 
off all bits in the color byte in the half of the byte which 
is not being modified. 

Finally, these 2 bytes (each with an empty half) are ORed 
together, to produce the modifed byte. 

The balance of the PROCedures don't do anything par- 
ticularly remarkable, so I won't expand on them. But look 
over this short demonstration of Actionl's power for your- 
self, a 

David Plotkin, with his Master's degree in Chemical En- 
gineering, is a Project Engineer for Chevron U.S.A. He pur- 
chased his Atari in 1980 and is interested in programming 
and game design, as well as word processing. 

Listing 1. 
Action! listing. 

; CHECKSUM DATA 
; C4D D7 45 Fl 31 EC 1 

MODULE; PASTELS by David Plotkin 

; written in ACTION! froM OSS 
BYTE ARRAY Colors=E0 17 34 51 68 85 

102 119 136 153 170 187 

204 221 238 2551 
CARD ARRAY LineC192J 

PROC GrlllnitCJ 

jlnitialize Graphics 11 

CARD loop,scrn=88 

GRAPHICS Cll) 

FOR loop=9 to 131 

DO 

LineCloopJ=scrn+40*loop 
0D 
RETURN 

PROC PlOtllCBYTE X,y,ClrJ 

jPlot a point using color Masks and 

; arrays 

BYTE ARRAY tl ine, Mask= 115 2401 , 

nask2=E240 151 
tline=LineCy) 
tlinecx R5H D==SMasktx8l)X 

CColors tc lr) &nask2 Cx&ll 1 
RETURN 



0D 

FOR i=l TO 79 

DO Z = z + i 

IF Z>15 THEN Z=i FI 

C0L0R=Z 

PLOT Ci,yl DRAWTO (79-i,190-y) 

yzy + i 

IF y>190 THEN y=0 FI 
0D 
0D 
RETURN 



PROC DrawlltBYTE xl, yl, x2, c lr) 
;Draw a line in Graphics 11 
BYTE ll,XXl,XX2 
IF xl>x2 then xx2=xl xxl=x2 

ELSE xxl=Xi XX2=X2 
FI 

FOR ll=XXl to XX2 
DO 

Plotll(ll,yl,clrl 
0D 
RETURN 

PROC Maint) 

;The wain driver 

BYTE z^COljijy^COljatrct^?? 

GrlllnitCJ 

DO atrct=0 

FOR i=l TO 79 
DO z=z+l 

IF Z>15 THEN Z=l FI 
Drawll t i,y, 79-1, z J 
Drawn Ci,l90-y,79-i,z) 

yzy + 1 

IF y>190 THEN y=0 FI 



92 ANALOG COMPUTING 



ATARI 8-BIT EXTRA 



48K Disk 




GRAPHICS 



# 






by David Castell 



CGM — Castell's Graphic Manager — is similar to the 
ST's GEM, in that it acts as an interface between the 
programmer and the operating system (OS), enabling the 
programmer to access such features as windows, icons and 
trackers. One of the many differences is that GEM works 
with a bit-mapped screen (similar to graphics 8), but CGM 
is designed to work with the standard graphics screen. 

Typing it in. 

Listing 1 is the BASIC data used to create your copy of 
CGM. See the M/L Editor on page 4 for typing instruc- 
tions. You should create the CGM file under the name AU- 
TORUN.SYS. 

To load CGM, insert the disk containing the AUTO- 
RUN. SYS file into drive 1. Turn your computer off and then 
back on again. After CGM loads in, a message indicating 
it's in memory appears at the top of the screen. 

Listings 2, 3, 4 and 5 are examples of BASIC programs 
using the features of CGM. Listing 2 demonstrates the use 
of windows and overlaying. 

Listing 3 is an icon editor. Move the hand tracker within 
the large rectangle and press the joystick button to turn 
a blank square white, or vice versa. Two icons, one nor- 
mal and one reversed, are displayed to the right of the edit- 
ing square. Press the START key at any time to display data 
that can be used to create an icon or tracker. When you 
return to the editor, the editing square will be blank again. 



Listing 4 is actually a subroutine that starts at Line 
30000. It can be incorporated into any of your own pro- 
grams that use a graphic screen. This subroutine is ac- 
tually a mini-DOS that will let you: get a directory, delete 
files, lock/unlock files, rename files and format disks. This 
program shows how windows and trackers can be integrat- 
ed to make menu selection a lot easier. 

Listing 5 is an advanced memo pad. The features of 
CGM make using it enjoyable and easy. The icons have 
been placed in windows, so they can be moved around 
or removed without disrupting the contents of the screen 
(memo pad). All these icons were created with the icon 
editor (Listing 2). The first is a clock. If you select this 
option, a menu will pop up, giving you the option of set- 
ting the clock or displaying it. If you display it, all activi- 
ty stops so you can see the time. When you're finished 
with the clock, press the joystick button to go on. 

The second icon is a calculator. If you select this, a cal- 
culator pops up. It's very simple and performs calculations 
in the order they're entered, not the order they "should" 
be in (i.e., multiplication before addition). Just move the 
hand over the keys and press the joystick button to hit a 
key. 

Most of the keys are self-explanatory. The X is the OFF 
key. When you're finished with the calculator, press OFF 
to remove it. The R is the square root key; the C clears 
the number currently displayed on the calculator's screen; 
and the A is All Clear. This clears the display, operation 
and memory. The % key is designed to work a special way. 
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If you enter 5 + 7%, the answer will be 5.35. It's useful for 
figuring sales tax. If you enter 7%, the answer will be 0.07. 

The third icon is a disk, for a disk loader routine. When 
you select this option, a large window is displayed, show- 
ing the names of all files on the disk. Move the hand over 
the one you want to load and press the button. It will be 
loaded and run automatically. This routine will only load 
programs that have been saved to disk. 

In the fourth window is the word MEMO (I honestly 
couldn't think of an icon to represent this function). If you 
select this option, a menu will pop up. You may choose 
to edit, load, save or print the memo. The editing func- 
tion removes all icons, leaving you the whole screen to 
edit with normal editing keys. 

To exit the editing function, simply press the ESC key. 
The memo print function is not very advanced. It doesn't 
support any of Atari's special graphics characters (which 
is just as well, because most of them are redefined as icons 
and trackers). 

At any time during the operation of the last two pro- 
grams, you may point the tracker to the top corner of the 
window you're currently selecting from and press the but- 
ton. The border of that window will turn to a color. Now, 
move your tracker to any spot on-screen and press the but- 
ton again. The window will instantly be moved to this new 
position, and the border will appear white again. 

The MAC/65 source code of CGM is available on the disk 
version of this book. 

Windows. 

A window is an area of the screen with a border around 
it, that you can print and input information to and from. 
CGM supports up to five independent windows, which can 
overlap to maximize space. When you print to a window, 
it automatically overlaps the other windows. 

Creating a window. 

When you first create a window, it will appear as a thick 
white border around a blank area. The contents of the 
screen underneath the window are stored in memory and 
restored when the window is removed. To create a win- 
dow, type in A = USR(39936,N,X,Y,C,RJ — where: N is the 
number of the window (from 1 to 5); X is the column of 
the top corner of the window; Y is the row of the top cor- 
ner of the window; C is the number of columns in the win- 
dow; and R is the number of rows in the window. 

Removing a window. 

Always be sure to remove a window before you create 
another with the same number. To remove a window, type 
A = USR(39939,N) — where: N is the number of the win- 
dow you wish to remove. 

Moving a window. 

At some point, you may want to move a window and 
its contents to another position on-screen. Instead of re- 
moving the window, creating it at another position and 
reprinting the contents, you can use this special window- 
moving routine. A = USR(39942,N,X,Y) — where: N is the 
number of the window you wish to move; and X,Y is the 
new position of the top corner of the window. 

Overlapping. 

Creating, removing, or moving a window does not af- 



fect the position or contents of other windows, but does 
affect the order in which they overlap. After executing one 
of these three commands, the windows will now overlap 
in the order of their creation, with the first window on 
the bottom of the stack and the last on the top. The ex- 
ception is the move function, in which the window moved 
always appears on top. 
Using a window. 

After creating the window, you're faced with using it. 
It's actually very easy: after creating a window, you have 
a new device Wn:, where n is the number of the window 
(1 to 5). As with all other devices, you must use the OPEN 
command to read or write. OPEN #aexp,aexp2,0,"Wn." — 
where: aexp is IOCB number (1-4) and aexp2 is a code 
number to determine input or output operation (4 = input, 
8= output, and 12= input and output). 

The OPEN command sets the window input/output po- 
sition to the top corner. After input or output you should 
use the CLOSE command (CLOSE ftaexpj. 
As normal, your input/output commands are: 

PRINT ttaexp — e.g., PRINT #1;" OPTION 1". This 
prints "OPTION 1" at the current window I/O po- 
sition. 

INPUT #aexp — e.g., INPUT ttl;A$. This inputs all 
characters from the current window I/O position to 
the end of the row. 

PUT #aexp — e.g., PUT #1,65. This sends charac- 
ter 65 (A] to the current window I/O position. 

GET #aexp — e.g., GET til, A. This gets the num- 
ber of the character at the current window I/O posi- 
tion and stores it in the variable A. 
Note that PRINT causes the window to be instantly 
redrawn to show the change in its contents, but this is not 
the case with the PUT command. With PUT, the window 
is redrawn when the RETURN character (155) is sent to 
the window. 

If you print more rows than are available in a window, 
the contents will scroll up one line. If you INPUT past 
the end of the window, you will get an error 136 (End of 
File) . Each line sent to the window should end with a RE- 
TURN, because it won't wrap around to the next line with- 
out one. For example, if you send a 15-character line to 
a 5-character wide window, only the first 5 characters are 
displayed; the rest are ignored. Therefore, if you INPUT 
that row, only the 5 characters actually displayed will be 
entered. 

If you want to have the contents of a window in a string, 
so you can send it all with one print statement, you'd run 
into the problem. There's no way you can put the RETURN 
character in the middle of the string, without going into 
complex string manipulation. Here, you can use CTRL- 
PERIOD instead of RETURN in the string. 

WIN$= M ROH i>ROH 2*R0H 3" 
PRINT »l;WIN$ 

CGM keeps track of what row and column within the 
window the next character will be read from or written 
to. I've referred to this as the "current window I/O posi- 
tion." Since INPUT reads from the current character to the 
end of a row you'll need a way to position this pointer 
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to the spot you want to read from (or, in the case of PRINT, 
write to). You're able to do this, and more, through the 
XIO command. It can be used like the Position X,Y state- 
ment in BASIC. The difference is that, in the case of the 
XIO command, positioning to point 0,0 would be the top 
corner of the window, not the screen. 

There are actually three different XIO functions. All of 
them change the window I/O pointer, but two perform ex- 
tra functions. 

XIO C,#D,X,Y,"Wn:"— where: D is the channel number 
(1-4). 

(1) Position for next I/O to window — where: C < 
100 and C > 12; X=column of window; Y=row of 
window; and N=number of window (1-5). 

As an example, XIO 50, #1,0,0," W: " indicates that the 
next string of characters sent to window 1 (no n means 
1) will start at the top corner of the window. 

(2) Position for next I/O with window and redisplay 
the contents of window. Normally, the only way to 
cause an overlapped window to overlap the other win- 
dows is to send data to it. Unfortunately, this may 
cause unwanted scrolling of text in the window. How- 
ever, this XIO command is similar to the first, except 
this one will redisplay the contents of window n, caus- 
ing it to overlap the others. 

Where: C > 100 and C < 200; X=column of win- 
dow; Y=row of window; and N = number of window 
(1-5). So, if window 2 is overlapped by other windows, 
XIO 100, #1,0,1." W2:" will cause window 2 to overlap 
other windows. The next I/O with window 2 will start 
at the second row, first character. 

(3) Redisplay contents of a window, position for next 
I/O with window (see 2, above) and reverse (black 
print on white square) all of the characters in a desired 
row — where: C > 200 and C < 256; X=column of 
window (reversing always starts from the beginning 
of a row, regardless of the value of X); Y=row of win- 
dow; and N = number of window (1-5). 

XIO 200,#1J,1,"W2:" — the characters in row 2 of 
window 2 are reversed. The next I/O with window 
2 will start at the second row, second character. 
Note that the characters are reversed only on the screen 
display. Therefore, when the window is redrawn (by 
PRINT, Create Window, Remove Window, Move Window, 
XIO 100-199, XIO 200-255), the row is returned to nor- 
mal. Also, if you INPUT a row that's reversed on-screen, 
the string input is not reversed. 

Also, PUT, GET, INPUT, OPEN, CLOSE, XIO 12-99 do 
not erase the reversed row. 

Take the following window as an example: 



ABC 


123 


DEF 


456 


GHI 


789 



(1) OPEN #1,12,0,"W:" — Sets up for input/output 
to window 1. The window I/O position is set to top 
corner. 

(2) XIO 250,#2,4,V'W:" — Reverses the second row, 
sets window I/O position to column 5, row 2. 



(3) INPUT ttl,A$ — Inputs from window I/O posi- 
tion to end of row. A$ now contains 456. 

(4) XIO 150,tt2,0,2,"W:" — Redraws the window, 
causing the second row (which was highlighted in the 
second step) to be returned to normal. The window 
I/O position is set to the column 1, row 3. 

(5) PRINT #1,"XYZ" — The "XYZ" prints overtop 
of "GHI". 

(6) PRINT #1 — The top row ABC 123 scrolls off 
the top of the window, and the last row of the win- 
dow is blank. 

(7) CLOSE #1 — You should always close a channel 
when you're done with it. 

Note: XIO commands cannot use a channel already open 
for I/O. That's why the XIO commands in steps 2 and 4 
use channel #2. 

Icons. 

To CGM, an icon is just a picture two characters wide 
by two characters high. A call to CGM will put the data 
of the four characters of the icon into the RAM character 
set used by CGM, starting at the character you select 
( ATASCII character value) . You should probably choose to 
put your picture where the Atari special graphics charac- 
ters normally are (characters 0-31), leaving the letters and 
numbers alone. However, the tracker uses characters 0-8, 
so you should also avoid these if you're using the tracker 
routines. 

For example, if you chose character 9, your icon will be 
made up of characters 9-12. Characters 9 and 10 will be 
the top half of the icon, and characters 11 and 12 will be 
the bottom half. Therefore, to print your icon on the 
screen, print characters 9 and 10 (CTRL-I and J) on one 
row, and characters 11 and 12 (CTRL-K and L) on the line 
below. 

The data for each character of the icon consists of eight 
numbers, the binary representations of each row of the 
character. The data is set up the same way as the icon is 
drawn — the top two characters, followed by the bottom two 
characters. If you're familiar with creating character sets, 
this set-up isn't new. But, even if you don't understand how 
to set up character data for the character set, you can use 
the icon editor program (Listing 3) to automatically cre- 
ate data statements (or strings) that can be used with calls 
requiring icon or tracker data. 

To put an icon into the character set, enter A = USR 
(39951, N.ADDR), where ADDR is the address of the icon 
data. If your icon data was in a string (such as ICONS), 
ADDR would be ADR(ICON$j. 

N is the number (ATASCII character value) of the first 
of die four characters whose character data will be replaced 
by the icon data. 

Tracker. 

A tracker is actually a movable icon, used mostly as a 
pointer. You're probably most familiar with the arrow 
tracker moved by a mouse on both the ST and the Macin- 
tosh, or maybe the hand moving around in the "Construc- 
tion Set" series from Electronic Arts. 

The default tracker built into CGM is a hand, but you 
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can change this if you want. The pointer that points to the 
location of the default tracker can be found at 39962 and 
39963. For example, add the following line to the Memo 
Pad program (Listing 5): 

85 TRACKHI=INT CADR f CLOCKS} /256J : TRACKL 
= ADR (CLOCKS! -TRACKHI*256 : POKE 39962 ,T 
RACKLOiPOKE 39963, TRACKHI 

This causes the clock to be used as the pointer, instead of 
the hand. 

Built-in tracker routine. 

The built-in tracker routine works independently of the 
BASIC program. This routine reads joystick 1 and moves 
the tracker in the corresponding direction on-screen. To 
start the tracker, enter A = USR(39954). 

After you start the tracker routine, your program really 
doesn't have to do anything but wait. If you wish to check 
where the tracker is at any given time, try: X=PEEK (4), 
then Y=PEEK (5). 

If you wish to disable joystick control of the tracker, lo- 
cation 39960 is the tracker mask. POKE 39960,1 disables 
joystick control, and POKE 39960,0 enables control. 

If you're finished with the tracker routine and wish to 
stop it: A = USR(39957). This will stop the routine and re- 
move the tracker. If you wish to put it back, you can just 
do another A=USR(39954), and it will appear at the same 
spot it was removed from. 

The following program is a sample implementation of die 
tracker routine: 

10 GRAPHICS 0:P0KE 752,1:? CHR$C125> 

20 A=USRC39954) 

30 IF STRIGC0) THEM 30 

40 A=USRC39957J :X=PEEKt4J :Y=PEEKC5J 

50 COLOR 160:PL0T X,Y 

60 GOTO 20 

This routine will allow you to use the joystick to move 
the tracker around. Line 30 waits until the joystick button 
is pressed. When it is, the tracker's removed and a reverse 
square is placed at the spot where the tracker was point- 
ing. You must remove the tracker before altering the screen 
under it. Otherwise, when the tracker moves again, the 
screen beneath the tracker will return to the way it was 
before the tracker was moved over it. 
Your own tracker. 

As mentioned above, if you wish to use this same track- 
er routine with your own tracker, just change the pointer 
at location 39962 and 39963 to point to your tracker. 

However, if you wish to create your own tracker 
routine — or use the tracker for something else (such as a 
controlled cursor, like the RENAME function of Listing 4, 
or the SET CLOCK function of Listing 5) — here are a few 
calls you can use. 

To position a tracker: A = LJSR(39945,addr,x,y), where 
addr is the address of the tracker data (set up in the same 
manner as icon data); x is the horizontal position of the 
tracker (0 to 318); and y is the vertical position of die tracker 
(0 to 190). 

Note that CGM has built-in roll-around routines. If the 
tracker goes off the screen, it appears on the other side. 

Also, the tracker automatically removes itself from its 
old position before locating itself to a new position. There 



fore, this is the only call you need to make inside a loop 
that moves the tracker. 

Avoid altering the contents of the screen near the tracker. 
If characters are printed over the tracker, these will dis- 
appear when the tracker is moved. 

If you wish to use the built-in hand tracker, just don't 
include addr within the USR call. For example: A = L/SR 
(39942, x,y) will position the hand at coordinates x,y. 

You can also use this Move Tracker routine to position 
the tracker being run by the built-in tracker routine called 
by A=USR(39954) within your program. For example, in 
the mini-DOS example (Listing 4), when entering the new 
name of a file to rename, the tracker mask is set (POKE 
39960,1) and A = USR(39942,x,y) is being used to control 
the movement of the hand, so it can be used as a cursor. 
When the name is entered, the tracker mask is cleared 
(POKE 39960,0), and the joystick once again takes con- 
trol of the tracker. 

If you don't enter any x- or y-coordinates with the 
l!SR{39942), the tracker will be printed at the last x,y- 
coordinates (for example, A = USR{39942) will display the 
icon at the last x, y-coordinates). So, if you need to alter 
the text below the tracker in your own tracker routine, just 
remove the tracker, alter the text and use A = USR(39942) 
to return the tracker to where it was before removal. 
Removing a tracker. 

When you're finished with the tracker, you'll probably 
want to remove it from the screen. To do so, enter 
A = L/SR(39948). 

This is not to be confused with A=USR(39957) men- 
tioned earlier, which removes the tracker and stops the 
built-in joystick tracker routine. 

The only integration between the windows and tracker 
consists of the tracker "getting out of the way" while the 
window is updated. However, as mentioned earlier, if you 
wish to alter the text beneath the tracker, you must first 
remove the tracker, alter die text and place the tracker back 
on-screen. 

Reading tracker position. 

Anytime you use the above tracker routines, locations 
4 and 5 will contain the tracker's position on the screen. 
Location 4 is the column reading (0-39), and location 5 
is the row reading (0-23). 

Whatever shape your tracker is, if it's to be used as a 
pointer, its point should be at the top left of the icon, be- 
cause the built-in roll around and the values in locations 
4 and 5 assume that this is the case. 

Here's the same application of the tracker routine shown 
earlier. This time, it doesn't use the built-in tracker rou- 
tine, but a custom tracker routine for the Atari Touch 
Tablet. 

10 GRAPHICS 10:P0KE 752,1:? CHRS C125) 

20 IF PADDLEC0)=228 AND PADDLE CI) =228 

THEN 20 

30 TX=PADDLE(0)*t320/228) : TY=192~PADDL 

ECU*C192/228) 

40 A=U5RC39945,TX,TY) 

50 IF 5TICKt0)=15 THEN 20 

60 A=USR139948} :X=PEEKC4) :Y=PEEK£5J 

70 COLOR 128:PL0T X,Y 

80 GOTO 20 
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To use it with the Koala Pad, just delete the 192- in 
Line 30. 

Special notes. 

Location 39961 contains the character (internal character 
set) with which window borders are drawn. The default 
is 128, a solid white square. You can change this by POKE- 
ing 39961 with any character. 

For this very reason, character 123 of the RAM charac- 
ter set used by CGM is changed from a "spade" to a solid, 
colored square, using artifacting. This color will proba- 
bly appear green or blue, but the color varies between sys- 
tems. Whichever it is, the reverse of this character (251) 
will appear as the other color (blue or green). 

Since this character is only in the RAM set, you must 
make sure this is the character set being used. The first 
tracker or icon routine called automatically selects the 
RAM set. However, if you want colored borders before you 
make one of these calls (or if your program doesn't use 
trackers), you must perform a POKE 756,152 to use the 
RAM character set. 

Another special character is character 255. If you POKE 
location 39961 with 255, no border will be placed around 
the window, causing the contents of the screen around the 
window (where the border normally is) to be left "as is." 
Changing location 39961 means that all borders drawn 
from that point on will appear with the new character. The 
Window Create, Remove and Move routines will cause the 
borders of all windows to be redrawn with the new bor- 
der character. 

If none of these routines are used, only the windows 
you PRINT to — or use an XIO (above 100) command on — 
will be redrawn with the new character. In the mini-DOS 
and Memo Pad programs, when you press the button with 
the tracker pointing to the top corner of the window, lo- 
cation 39961 is POKEd with a 123 and an XIO 150 is per- 
formed . 

This only changes the color of the border of the one win- 
dow. If the subsequent move window routine was execut- 
ed before location 39961 was changed back to 128, all the 
windows on the screen would be redrawn with a colored 
border, instead of the usual white one. 

It should be noted that this same technique cannot be 
used with the no border (character 255) option. For the 
no border option to be invoked , it must be placed before 
a Window Create, Remove or Move command. These three 
commands cause the contents of the screen behind the 
borders to be restored and then the new borders are 
redrawn — or in this case, not drawn. 

Whenever a window is created, the contents of the 
screen behind the window and the contents of the win- 
dow are stored just below the top of memory pointer (lo- 
cations 741 and 742). When CGM initializes (after it loads, 
or any time SYSTEM RESET is pressed) these pointers are 
set to the first free location below CGM. 

However, whenever a graphics command or a channel 
is opened to device E: or S:, this pointer is set to just be- 
low the display list, which is also the end of CGM. This 
means that — if you use a graphics command or open to 
E: or S:, then create a window — the contents of the win- 



dow and the screen behind the window are stored right 
over CGM, causing the computer to lock up. 

You'll probably notice that the two sample tracker rou- 
tines shown earlier use a graphics command. Also, the 
icon editor opens a channel to S:, so the graphic charac- 
ters display properly. 

These programs get away with this, because they don't 
use any windows. However, if you ran any of these pro- 
grams and then ran a program that did use windows, the 
computer would lock up. To get around this problem, press 
the SYSTEM RESET key when you run a program with 
windows. If you wish to use the graphics statement in a 
program with windows, just reset the top of memory point- 
er after the graphics statement. For example: 

10 MEMT0PL0=PEEKC741> : MEMT0PHI=PEEK £74 

2) 

20 GRAPHICS tor OPEN 111, 12, 0, "E : " or 

OPEN «1,12,0,"5: M ) 
30 POKE 741, MEMT0PL0: POKE 742,MEMT0PHI 

This will solve any problems you might encounter. 

Since there's no real integration between windows and 
trackers, the task of integrating these two features in a pro- 
gram is yours. However, I've included several all-purpose 
subroutines that integrate windows and trackers, to per- 
form specific tasks. 

The first can be found in the mini-DOS program (List- 
ing 4) at Line 31000, and in the Memo Pad program (List- 
ing 5) at Line 25000. This subroutine is designed for menu 
selection. Before entering the subroutine, you must cre- 
ate a window, print the different options to the window, 
start the tracker routine and set the following variables: 
N = number of the window; X,Y=top corner of the win- 
dow; DX = Delta X (number of columns); and DY= Delta 

Y (number of rows). 

Lines 25030-25050 are the heart of this subroutine. This 
loop waits for the user to press the joystick button and 
reverses the window row the tracker is on, or erases this 
highlight if the tracker is outside the window's border. 

Line 25070 checks to see if the button was pressed at 
the top corner of the window. If it was, Lines 25080-25140, 
(the Move Window routine) are executed. 

When the subroutine is finished, the variables X and 

Y will hold the top corner of the window (if the window 
was moved, your program might need to know), and the 
variable CHOICE will contain the number of the option 
selected. This result can be used in statements like: ON 
CHOICE GOTO OPTION1, OPTION2, OPT10N3, . . .or ON 
CHOICE GOSUB OPTlONl, OPTION2, OPTION 3 

Another subroutine is the Input String subroutine start- 
ing at 30000 in the Memo Pad program. This routine uses 
the tracker as a cursor to enter a string inside a window. 
The routine is used to set the clock and enter the filename 
in the save memo option. 

The routine needs IOCB #2 to be opened for input/out- 
put (OPEN #2,12,0,"Wn:") to the proper window. It also 
requires that the variables N, X and Y to be set in the same 
manner they were in the above subroutine, as well as the 
variable LEFT, which should contain the column of the 
window the entry should start in. 

For example, if the prompt in the window was File- 
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name?, entry should start in column 9, which is the first 
column to the right of the question mark; therefore, LEFT 
should equal 9. 

This subroutine returns the string that was entered in 
the variable NAMES, which should be dimensioned at the 
start of your program. If you were to enter a number, you 
would use the VAL command (NL/M = VAL(NAME$JJ, to 
get the number into a numeric variable. 

Another subroutine worth mentioning starts at Line 
10000 of the Memo Pad program. This routine creates a 
window the height of the screen, and reads all the names 
of files on the disk in drive 1, printing them to the win- 
dow. It then uses the subroutine at Line 25000 to allow 
the user to select one of the filenames. 

It proceeds to get the name into the proper format for 
disk I/O (D: FILENAME. EXT) and returns the final name 
in FNAME$. This subroutine requires that the strings 
FNAME$ and EXT$ be dimensioned at the beginning of 
the program. 

All these subroutines require certain entry point varia- 
bles (CL, OP, TRACKER, etc.) See the first couple lines 
of the Memo Pad program for these variables. 

Your first step in learning how to use CGM should be 
to run the four sample programs, so you can see exactly 
what CGM can do. Then look at the listings, to see exact- 
ly how we're using CGM to do it. 

When you start programming with CGM, use as many 
routines from these four samples as possible, as well as 
creating your own subroutines to incorporate into other 
programs. You'll never run out of uses for CGM in your 
programs, because it has the ability to make any program 
user-friendly. H 

David Castell is currently attending the University of 
Waterloo in Ontario. Although this is David's first program 
published in a magazine, he's also written "P. S. Inter/ace" 
and "The First XLent Word Processor" for the 8-bits and 
"P.M. Interface" for the ST. All three are available from 
XLent Software. 



The two-letter checksum code preceding the line 
numbers in Listings 2 through 5 is not a part of the 
BASIC program. For more information, see BASIC 
Editor II, in ANALOG Computing's issue 47. 



Listing 1. 

1009 DATA 255,255,133,142,128,143,104, 
216,160,0,104,104,153,109,144,200,9393 

1010 DATA 192,5,144,246,32,235,150,32, 
73,143,76,251,150,104,216,104,9749 
1020 DATA 104,141,109,144,32,235,150,3 
2,10,146,76,251,150,216,104,32,7629 



1O30 DATA 235,150,169,0,141,233,145,32 

,162,144,104,104,141,109,144,141,8511 

1040 DATA 210,142,32,137,145,104,104,1 

53,47,145,104,104,153,48,145,32,5892 

1050 DATA 196,144,169,0,141,109,144,32 

,137,145,32,212,143,76,251,150,9331 

1060 DATA 36,33,54,41,36,0,35,33,51,52 

,37,44,44,7,51,0,5526 

107O DATA 167,178,161,176,168,169,163, 

128,173,161,174,161,167,165,178,165,36 

03 

1080 DATA 12,141,23,143,165,13,141,24, 

143,160,4,185,219,142,145,88,7666 

1090 DATA 200,192,35,144,246,176,3,32, 

255,255,169,22,133,12,169,143,8606 

1100 DATA 133,13,32,165,150,169,0,160, 

4,153,84,148,136,16,250,160,7627 

1110 DATA 44,153,55,145,136,16,258,32, 

104,148,169,132,141,229,2,169,8619 

1120 DATA 142,141,230,2,169,0,141,118, 

144,96,173,118,144,201,45,176,8770 

1130 DATA 248,32,58,144,32,8,145,32,71 

,144,173,229,2,56,229,208,7974 

1140 DATA 141,114,144,173,230,2,229,20 

9,141,115,144,32,8,145,173,114,8810 

1150 DATA 144,56,229,208,141,116,144,1 

73,115,144,229,209,141,117,144,173,261 

9 

1160 DATA 116,144,129,143,124,144,56,2 

33,1,141,229,2,173,117,144,233,0 

1170 DATA 0,141,230,2,32,34,145,173,19 

8,146,240,3,76,226,144,173,9911 

1180 DATA 109,144,141,233,145,32,100,1 

45,32,162,144,76,196,144,32,58,6085 

1190 DATA 144,32,25,144,173,114,144,13 

3 , 210 , 173 , 115, 144, 133, 211, 174, 113, 1384 

1200 DATA 144,160,0,177,208,145,210,20 

0,204,112,144,144,246,32,84,144,830 

1210 DATA 32,96,144,202,208,235,76,71, 

144,32,58,144,32,25,144,160,5692 

1220 DATA 0,173,25,156,201,255,240,48, 

145,208,200,204,112,144,144,248,4497 

1230 DATA 174,113,144,202,202,32,84,14 

4,168,0,173,25,156,145,208,172,9385 

1240 DATA 112,144,136,145,208,202,208, 

237,32,84,144,160,0,173,25,156,8157 

1250 DATA 145,208,200,204,112,144,144, 

245,32,71,144,76,192,145,174,111,25 

1260 DATA 144,165,88,24,109,110,144,13 

3,208,165,89,105,0,133,209,202,9361 

1270 DATA 48,25,165,208,24,105,40,133, 

208,144,244,230,209,208,240,238,6582 

1280 DATA 112,144,238,112,144,238,113, 

144,238,113,144,96,206,112,144,206,264 

3 

1290 DATA 112,144,206,113,144,206,113, 

144,96,165,208,24,105,40,133,208,8997 

1300 DATA 144,2,230,209,96,165,210,24, 

109,112,144,133,210,144,245,230,3488 

1310 DATA 211,96,0,0,0,8,0,0,0,0,0,0,3 

2,58,144,32,5613 

1320 DATA 25,144,125,144,120,145,173,1 

14,144,133,210,173,115,144,133,211,207 

1 

1330 DATA 174,113,144,160,0,177,210,14 

5,208,200,204,112,144,144,246,32,2044 

1340 DATA 84,144,32,96,144,202,208,235 

,76,71,144,160,0,185,55,145,8093 
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1350 DATA 205,233,145,240,23,140,1,145 

,141,109,144,32,137,145,32,119,6060 

1360 DATA 144,172,1,145,32,2,145,204,1 

18,144,144,225,96,160,0,185,8484 

1370 DATA 55,145,240,23,140,1,145,141, 

109,144,32,137,145,32,169,143,6949 

1380 DATA 172,1,145,32,2,145,204,118,1 

44,144,228,160,0,185,55,145,8268 

1390 DATA 240,23,140,1,145,141,109,144 

,32,137,145,32,212,143,172,1,6577 

1400 DATA 145,32,2,145,204,118,144,144 

,228,96,0,152,24,105,9,168,5524 

1410 DATA 96,174,113,144,169,0,133,208 

,133,209,202,48,243,165,208,24,1267 

1420 DATA 109,112,144,133,208,144,243, 

230,209,208,239,172,118,144,162,0,2796 

1430 DATA 189,109,144,153,55,145,200,2 

32,224,9,144,244,140,118,144,96,1068 

1440 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,1440 

1450 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,1450 

1460 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,16 

0,0,173,6468 

1470 DATA 116,144,133,208,173,117,144, 

133,209,169,32,145,208,230,208,208,477 

9 

1480 DATA 2,230,121,145,116,146,209,16 

5,208,205,114,144,208,239,165,209,5897 

1490 DATA 205,115,144,208,232,96,160,0 

,204,118,144,176,13,185,55,145,8661 

1500 DATA 205,109,144,240,8,32,2,145,2 

08,238,160,255,96,162,0,185,269 

1510 DATA 55,145,157,109,144,200,232,2 

24,9,144,244,96,32,25,144,165,9021 

1520 DATA 208,24,105,41,133,208,165,20 

9,105,0,133,209,96,32,175,145,8552 

1530 DATA 173,116,144,133,210,173,117, 

144,133,211,174,113,144,160,0,177,479 

1540 DATA 210,32,234,145,145,208,200,2 

04,112,144,144,243,32,84,144,32,9313 

1550 DATA 96,144,202,208,232,96,0,141, 

197,146,41,128,141,8,146,173,8359 

1560 DATA 197,146,41,127,201,96,176,12 

,201,32,144,5,233,32,76,7,4091 

1570 DATA 146,24,105,64,9,0,96,32,137, 

145,192,255,240,21,32,119,6961 

1580 DATA 144,160,0,185,55,145,205,109 

,144,240,9,32,2,145,204,118,7419 

1590 DATA 144,144,240,96,173,118,144,5 

6,233,9,141,118,144,208,6,32,6695 

1600 DATA 57,143,76,191,146,140,198,14 

6,204,118,144,240,87,192,0,208,1686 

1610 DATA 15,173,118,144,201,9,169,132 

,133,210,169,142,133,211,208,15,1102 

1620 DATA 185,53,145,56,233,1,133,210, 

185,54,145,233,0,133,211,185,935 

1630 DATA 62,145,56,233,1,133,208,185, 

63,145,233,0,133,209,160,0,8456 

1640 DATA 177,208,117,146,112,147,145, 

210,198,210,165,210,201,255,208,2,4857 

1650 DATA 198,211,198,208,165,208,201, 

255,208,2,198,209,205,229,2,208,5023 

1660 DATA 225,165,209,205,230,2,208,21 

8,172,198,146,204,118,144,176,9,1940 

1670 DATA 185,64,145,153,55,145,200,20 

8,242,140,198,146,32,57,143,172,858 

1680 DATA 118,144,32,160,145,32,80,143 

,173,118,144,205,198,146,208,239,3786 

1690 DATA 169,0,141,198,146,96,0,0,165 

,33,141,109,144,201,6,144,6134 

1700 DATA 4,104,104,160,164,96,32,199, 

146,32,137,145,192,255,208,3,191 

1710 DATA 160,170,96,173,109,144,10,16 

8,169,0,153,70,148,153,71,148,7556 

1720 DATA 160,1,96,189,65,3,133,33,168 

,185,83,148,240,10,169,0,6310 

1730 DATA 153,83,148,169,155,160,1,96, 



32,140,147,173,83,148,205,113,9094 

1740 DATA 144,144,3,160,136,96,160,0,1 

77,210,72,238,82,148,173,82,9583 

1750 DATA 148,205,112,144,144,15,238,8 

3,148,169,0,141,82,148,164,33,7200 

1760 DATA 169,1,153,83,148,32,120,147, 

104,96,72,189,65,3,133,33,4036 

1770 DATA 32,140,147,173,83,148,205,11 

3,144,144,3,32,189,147,104,201,9301 

1780 DATA 155,240,4,201,96,208,19,32,2 

35,150,32,212,143,32,251,150,331 

1790 DATA 238,83,148,169,0,141,82,148, 

240,15,174,82,148,236,112,144,338 

1800 DATA 176,7,113,147,108,148,160,0, 

145,210,238,82,148,173,109,144,757 

1810 DATA 10,168,173,82,148,153,70,148 

,173,83,148,153,71,148,160,1,7597 

1820 DATA 96,165,33,141,109,144,10,168 

,185,70,148,141,82,148,185,71,8466 

1830 DATA 148,141,83,148,32,137,145,17 

3,116,144,24,109,82,148,133,210,9031 

1840 DATA 173,117,144,105,0,133,211,17 

4,83,148,202,48,65,32,96,144,6828 

1850 DATA 208,248,173,116,144,133,208, 

173,117,144,133,209,160,0,140,82,9851 

I860 DATA 148,206,83,148,32,162,147,16 

5,208,197,210,208,6,165,209,197,4065 

1870 DATA 211,240,17,172,112,144,177,2 

08,160,0,145,208,230,208,208,231,5876 

i860 DATA 230,209,208,227,169,32,145,2 

10,200,204,112,144,144,246,96,32,1860 

1890 DATA 199,146,32,137,145,165,42,20 

5,112,144,176,3,141,82,148,165,8935 

1900 DATA 43,205,113,144,176,52,141,83 

,148,165,34,201,100,144,43,32,6352 

1910 DATA 235,150,32,212,143,165,34,20 

1,200,144,28,32,175,145,174,83,9115 

1920 DATA 148,202,48,5,32,84,144,208,2 

48,160,0,177,208,73,128,145,9894 

1930 DATA 208,200,204,112,144,144,244, 

32,251,150,76,120,147,0,0,0,5092 

1940 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

212,146,7456 

1950 DATA 238,146,241,146,56,147,238,1 

46 , 249,147,76,104,148,160,0,185,702 

I960 DATA 26,3,109,148,104,149,240,5,2 

00,200,200,208,246,169,87,153,3858 

1970 DATA 26,3,169,89,153,27,3,169,148 

,153,28,3,96,216,104,170,6923 

1980 DATA 41,1,208,14,173,26,156,141,1 

34,149,173,27,156,141,145,149,9428 

1990 DATA 208,8,104,141,145,149,104,14 

1,134,149,224,2,144,13,104,141,7619 

2000 DATA 20,151,104,141,19,151,104,10 

4,141,18,151,173,18,151,201,192,9380 

2010 DATA 144,13,201,240,144,4,169,190 

,208,2,169,0,141,18,151,173,8059 

2020 DATA 20,151,16,12,169,61,141,19,1 

51,169,1,141,20,151,208,21,5370 

2030 DATA 201,1,144,17,208,7,173,19,15 

1,201,64,144,8,169,0,141,5705 

2040 DATA 19,151,141,20,151,173,12,151 

,240,3,32,0,149,169,1,141,5065 

2050 DATA 23,151,141,12,151,208,23,104 

,216,169,0,141,23,151,141,12,5888 

2060 DATA 151,173,13,151,133,0,173,14, 

151,133,1,76,67,150,169,152,6738 

2070 DATA 141,244,2,173,18,151,141,17, 

151,173,19,151,133,0,173,20,5270 

2080 DATA 151,133,1,162,3,70,1,102,0,7 

8,17,151,202,208,246,165,9053 

2090 DATA 0,141,122,150,169,40,56,229, 

0,141,154,150,174,17,151,142,8588 

2100 DATA 126,150,202,48,13,165,0,24,1 

05,40,133,0,144,244,230,1,6133 

2110 DATA 208,240,165,0,24,101,88,133, 

0,141,13,151,165,1,101,89,4162 

2120 DATA 133,1,105,149,100,150,141,14 
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,151,173,19,151,41,7,141,21,3857 

2130 DATA 151,173,18,151,41,7,141,22,1 

51,32,133,149,32,206,149,76,6376 

2140 DATA 67,158,169,0,141,171,149,24, 

105,8,141,177,149,169,0,141,7239 

2150 DATA 172,149,105,0,141,178,149,16 

0,0,152,153,0,154,200,192,72,9068 

2160 DATA 144,248,162,0,172,22,151,189 

,255,255,153,0,154,189,255,255,5928 

2170 DATA 153,8,154,232,224,24,176,90, 

224,8,208,2,162,16,200,152,9115 

2180 DATA 41,7,208,227,152,24,105,16,1 

68,208,220,172,21,151,136,48,8805 

2190 DATA 65,162,0,94,0,154,126,8,154, 

126,16,154,232,138,41,7,5170 

2200 DATA 208,241,138,24,105,16,170,22 

4,72,144,232,176,225,141,15,151,1295 

2210 DATA 41,127,133,4,169,0,133,5,160 

,3,6,4,38,5,136,208,2252 

2220 DATA 249,165,5,24,105,152,133,5,1 

73,15,151,48,6,169,0,141,3962 

2230 DATA 43,150,96,169,255,208,248,14 

2,16,151,140,17,151,32,240,149,725 

2240 DATA 160,0,174,66,150,177,4,73,0, 

93,0,154,157,0,154,232,6451 

2250 DATA 200,192,8,144,248,142,66,150 

,174,16,151,172,17,151,96,0,6374 

2260 DATA 169,64,141,158,150,160,0,140 

,66,150,162,0,177,0,32,130,5179 

2270 DATA 150, 232, 200, 192, 3, 144, 245, 16 

0,40,169,0,141,22,151,177,0,6923 

2280 DATA 32,138,101,150,55,151,150,23 

2,200,192,43,144,245,160,88,177,2940 

2290 DATA 0,32,130,150,232,200,192,83, 

144,245,169,0,133,4,169,0,7637 

2300 DATA 133,5,96,72,173,23,151,208,7 

,104,189,56,151,145,8,96,6126 

2310 DATA 104,157,56,151,32,26,150,152 

,41,3,201,0,176,4,169,0,3571 

2320 DATA 145,0,238,158,150,96,160,0,1 

40,12,151,140,24,156,140,18,5862 

2330 DATA 151,140,19,151,140,20,151,18 

5,0,224,153,0,152,185,0,225,8868 

2348 DATA 153,0,153,185,0,226,153,0,15 

4,185,0,227,153,0,155,200,9593 

2350 DATA 208,229,160,7,169,170,153,21 

6,155,136,16,248,169,128,141,25,599 

2360 DATA 156,169,24,141,26,156,169,15 

1,141,27,156,96,238,24,156,168,9684 

2370 DATA 0,140,23,151,173,12,151,240, 

242,76,8,149,160,1,140,23,6613 

2380 DATA 151,173,12,151,240,3,32,21,1 

49,206,24,156,96,0,0,0,1912 

2390 DATA 0,0,0,0,0,0,0,0,0,224,112,56 

,28,14,15,31,7815 

2400 DATA 63,0,0,48,112,96,224,224,224 

,63,31,15,0,0,0,0,318 

2410 DATA 0,232,216,176,96,192,0,0,0,6 

5,151,255,151,104,216,32,8400 

2420 DATA 235, 150, 104, 104, 32, 234, 145, 3 

2,240,149,104,133,1,104,133,6,6372 

2430 DATA 160,31,177,0,145,4,136,16,24 

9,169,152,141,244,2,32,251,3 

2440 DATA 150,76,121,150,104,216,32,23 

0,151,162,151,160,118,169,7,76,9366 

2450 DATA 92,228,216,173,24,156,208,10 

3,238,128,151,169,0,201,2,144,9933 

2460 DATA 94,169,0,141,128,151,173,120 

,2,201,15,240,82,41,12,201,7282 

2470 DATA 4,208,14,173,19,151,24,105,4 

,141,19,151,144,3,238,28,4904 

2480 DATA 151,173,120,2,41,12,201,8,20 

8,14,173,19,151,56,233,4,5542 

2490 DATA 141,19,151,176,3,206,20,151, 

173,120,2,41,3,201,1,208,5892 

2500 DATA 9,173,18,151,24,105,4,141,18 

,151,173,120,2,41,3,201,4295 

2510 DATA 2,208,9,173,18,151,56,233,4, 

141,18,151,32,230,151,76,7472 



2520 DATA 98,228,169,0,72,76,132,148,1 

04,216,169,7,162,228,160,98,810 

2530 DATA 32,92,228,173,12,151,240,3,7 

6,8,149,96,0,156,27,156,5352 

2540 DATA 76,133,142,76,156,142,76,172 

,142,76,132,148,76,254,148,76,398 

2550 DATA 65,151,76,104,151,76,236,151 

,0,128,24,151,226,2,227,2,7391 

2560 DATA 254,142,0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,3098 



LCI 


lO ; 


CA 


20 


HP 


30 i 


NB 


40 


UP 


50 


LZ 


60 


JO 


70 


GT 


80 


DI 


90 


FP 


100 


GD 


110 


C.R 


120 


RP 


130 


yp 


140 


VD 


150 


HH 


160 


MX 


170 


uu 


180 


01 


190 


CI 


20O 


AP 


210 


MO 


220 


PG 


230 


LM 


240 


BS 


250 


ZL 


260 


RM 


270 


EA 


280 


Zft 


290 



Listing 2. 
BASIC listing. 



LIST :P05ITI0N 2,15 
0P=39936:CL=39939 

A=U5RfOP,l,8,10,2O,10) :G05UB 200 
A=USRCOP,2,2,2,10,1O) : GOSUB 200 
A=USRC0P,3,5,5,12,123 :G0SUB 200 
A=USR<0P,4,24,7,7,5J :GOSUB 200 
A=U5RC0P, 5, 28, 8,10,101 :G05UB 200 
LIST "Wl-iGOSUB 200 
LI5T "N2:": GOSUB 200 
LIST "W3:":G0SUB 200 

LIST "H4:":gosub 200 
LIST "WS^'lGOSUB 200 
GOSUB 210 

GOSUB 200 

GOSUB 20O 

GOSUB 200 

GOSUB 200 

GOSUB 20O 



BO 10 

CK 
M 20 
(ID 30 

KT 
UV 40 

$} 
KE 50 
XC 60 
ZR 70 
UR 80 
ZY 90 

60 
CX 10 
OF 11 
RE 12 
II 13 



A=U5RCCL,3) 

A=USRCCL,2) 

A=USRCCL,4) 

A=USRCCL,5) 

A=USRtCL,l) 

END 

FOR N = l TO 500:NEXT N:RETURN 

REM 20 RANDOM OVERLAPS 

DIM N$(3) 

FOR C=l TO 20 

N=INTCRNDC0J*5)+1 

N$-"M : ,, :N$C2,2)=CHR$fN + 48J 

XIO 150,ttl,0,0,N$ 

GOSUB 200 

NEXT C 

RETURN 



Listing 3. 
BASIC listing. 



TRACKER=39954:DATT0SET=39951:5TPTRA 
ER=39957:DIM ICONS C32) 

POKE 752,1!? CHR$C125J 

FOR N=l TO 32:ICON$CN,N)=CHR$C0J : NE 

N 

GOSUB 130:A=USRCDATT0SET,9,ADRtIC0N 
] 

A=USRCTRACKER) 

IF PEEK(53279)=6 THEN 350 

IF STRIGC0) THEN 60 

X=PEEKC4) :Y=PEEKC5) 

IF X=0 OR X>16 OR Y = OR Y>16 THEN 



O GOSUB 200 

A=U5R(DATT0SET,9,ADRIIC0N$J3 

GOTO 60 

REM SET UP SCREEN 



XB 140 MEM=PEEKt88)+256*PEEKt89) 

JG 150 FOR NrMEM TO MEM+17:P0KE N,138:P0K 

E N+17*40, 138: NEXT N 
OV 160 FOR N=MEM TO MEM+17K40 STEP 40:POK 
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E N,138:P0KE N+17,138:NEXT N 
JB 170 POKE MEM+25,73:P0KE MEM+26, 74 : POKE 

MEM+65,75:P0KE MEM+66,76 
CJ 180 POKE MEM+30,201:P0KE MEM+31, 202 : PO 

KE MEM+7O,203:POKE MEM+71,204 
ZP 190 RETURN 

SM 200 REM PLOT AND UPDATE 
ZS 210 A=USRCSTPTRACKERJ 
DU 220 MEM=PEEKC88)+256*PEEKC89)+X+40*Y:Z 

=PEEKCMEM) 
5C 230 IF Z = THEN POKE MEM, 128 
EO 240 IF Z = 128 THEN POKE MEM, O 
Cy 250 A=U5RCTRACKER) 

RK 260 IF X< = 8 AND Y<=8 THEN CY=V:CX=8-X 
WI 270 IF X>8 AND Y< = 8 THEN CY=Y+8 : CX=16- 

X 
CN 280 IF X<=8 AND Y>8 THEN CY=Y+8 : CX=8~X 
GA 290 IF X>8 AND Y>8 THEN CY=Y+16 : CX=16- 

X 
YQ 300 T=ASCfICONSCCY,CY)) 
HJ 310 IF Z=0 THEN T=INT t CT+2*CX) +0 . 5) 
SF 320 IF Z=128 THEN T=INT t CT-2*CX) +0 . 5) 
YC 330 ICONSCCY,CY)=CHR${TJ 
ZH 340 RETURN 
DC 350 REM SHOW DATA 
EE 360 A=USRCSTPTRACKER) :OPEN 81,12,0,"S: 

":POKE 752,1 
ZL 370 PRINT 81;"A=U5RC39945,ADRC";CHR$C3 

4);IC0N$tl,323 ;CHR$C34);"3 , X,Y)":? 
CO. 380 PRINT "DATA ";:FOR N = l TO 32:? ASC 

CICON$CN,N)) ;","; :NEXT N:? CHR$C126J 
LR 390 CLOSE ttl 

IP 400 OPEN 81,4,0,"K:":GET 81,X:CL0SE 81 
ET 410 GRAPHICS 0:G0T0 20 



Listing 4. 
BASIC listing. 

LT 10 0P=39936:CL=39939:M0VETRACKER=39945 
:TRACKER=39954:STPTRACKER=39957:TRMA5K 
=39960 

AZ 20 B0RDERCHAR=39961:M0UEWIND0W=39942 

PB 30 DIM WINSC2) 

MW 40 GOSUB 30000 

AD 50 STOP 

ED 30000 Xl=0:Yl=O:DXl=ll:DYi=6:A=USRCOP, 
1,X1,Y1,DX1,DY1J 

XU 30010 OPEN 85,12,0,"W: 



DF 30G20 PRINT 85 
WE 30030 PRINT 85 
SS 30040 PRINT 85 
YJ 30050 PRINT 85 
MT 30060 PRINT 85 
XA 30070 PRINT 85 



["DIRECTORY" 
■■DELETE" 
"LOCK/UNLOCK" 

:"RENAME" 
■FORMAT" 

■ -£-£■ FVTT ■JHfc 11 

BD 30080 MAIN=3011O:DIRECTORY=3O490:NAME= 

30590 :SURE=3O750: DIM NAMES (185 ,REN$C31 

3 ,T$flO) ,XSC3) 
LF 30090 DIR=30160:LOCK=3O220:DEL=3O18O:F 

RMAT=3O440:REN=3O260 
TG 30100 A=USRCTRACKERJ 
SB 3011O IF NOT STRIGC03 THEN 30110 
PU 3012O N=l:X=Xl:Y=Yl:DX=DXl:DY=DYl:G05U 

B 3100O:X1=X:Y1=Y:INDEX=CHOICE 
GC 3013O IF INDEX = 6 THEN A = USR (CL, 1) : A = US 

RCSTPTRACKERJ : RETURN : REM EXIT FROM MI 

NI-DOS 
TI 30140 IF INDEX<>5 THEN GOSUB DIRECTORY 

: GOSUB NAME: CLOSE 83 
CH 30150 ON INDEX GOTO DIR, DEL, LOCK, REN, F 

RMAT 
NZ 30160 REM DIR 
TE 30170 GOTO MAIN 
JL 30180 REM DEL 
XH 30190 GOSUB SURE 
DM 30200 XIO 33,84, 0,0, NAMES 
SJ 30210 GOTO MAIN 



AN [30220 REM LOCK 

ZW 30230 IF LCK THEN XIO 36,84, O, O, NAMES 

OL 30240 IF NOT LCK THEN XIO 35,84, 0,0,N 

AME$ 
SZ 30250 GOTO MAIN 
(IE 30260 REM REN 

HZ 30265 FOR X=LEN CNAME$J TO 1 STEP -1 : IF 
NAME$tX,XJ=" " OR NAME$CX,XJ=CHRSC155 

•% THFM NFHT H 
RO 30270 REN$=NAME$(1,X) : A=USR COP, 2, 12, O, 

22,15 :L=LEN(REN$J :POKE TRMASK,1 
MB 30280 OPEN 83, 12, O, "W2 : " : OPEN 84,4,0," 

K : " : X = 9 
OL 30290 PRINT 83;"NEW NAME?" 
CY 30300 XIO 1O0,82,X,0,"H2:":A=U5RCMOVET 

RACKER, CX+13J*8,14J 
MG 30310 GET 84, N 
UB 30320 IF N<>126 THEN 30360 
XD 30330 X=X-l:IF X<9 THEN X = 9 
JJ 30340 XIO 50,82,X,O,"W2:":PUT 83,32 
Y2 30350 GOTO 3O300 
BE 3O360 PUT 83,N:X=X+1:IF N<>155 THEN 30 

300 
HZ 30370 XIO 50,82,9,O."W2:" 
PK 3038O INPUT 83, NAMES 

RR 30390 REN$tL+13=",":REN$tL+21=NAME5 
YB 3O40O POKE TRMASK,0:CLOSE 83:CL0SE 84 
XV 3041O XIO 32,84, 0,0,RENS 
GD 30420 A=USRCCL,2J 
SX 30430 GOTO MAIN 
SH 30440 REM FORMAT 

BN 30450 IF NOT STRIGC0J THEN 30450 
XE 30460 GOSUB SURE 
NU 30470 XIO 254,84,0,0,"D:" 
TR 30480 GOTO MAIN 
DT 30490 REM DIRECTORY 
KW 305O0 A=U5RC0P,2,12,0,17,22) 
IW 30510 OPEN 84,6,0,"D:*.*" 
RJ 30520 OPEN 83,12,0,"W2:" 
MD 3053O CNT=0 
IP 30540 TRAP 30550:INPUT 84, NAMES : PRINT 

83;NAME$:CNT=CNT+l!G0T0 3054O 
S5 30550 CLOSE 84 

BA 30560 XIO 20, 84, 0, 21, "H2!" 

HW 30570 PRINT 83 : " EJEH OEJCEilll!^ " 

EU 30580 RETURN 

YC 30590 REM NAME 

YE 30600 IF INDEXOl THEN 30630 

CO 30610 IF STRIGCO) THEN 30610 

UX 30620 A=USR(CL,2) : CLOSE 83:RETURN 

IT 30630 N=2:X=12! Y=0:DX=17:DY=22 

M0 30640 GOSUB 31000 

RT 30650 IF CTY-Y)>=CNT THEN A=U5RCCL,2): 

POP : CLOSE 83: GOTO MAIN 
WH 30660 XIO 15,84,0, CTY-Y)-1,"W2:" 
PP 30670 INPUT 83, NAMES 
HN 30680 LCK = 0:IF NAMES 11,11 ="*" THEN LCK 

= 1 
SR 30690 TS="D:" :TSC3J=NAMESC3,10J :XS=NAM 

E$Cli,13J 
NQ 30700 FOR N=l TO 10 : IF TSCN,N)=" " THE 

N L=N : N=12 
GY 30710NEXT N : IF N = il THEN L=ll 
DH 30720 NAMES=T$: NAMES (L,L)=".": NAMES CL+ 

13 = XS : NAMES CL + 4J =CHR$ C155J 
SQ 30730 CLOSE 84 
CG 30740 A=USRCCL,2J : RETURN 
LO 30750 REM SURE 
NZ 30760 A=USR(0P,2,12,7,3,2J 
CU 30770 OPEN 84,8,0,"W2:" 
OM 30780 PRINT 84;"YES" 
ET 30790 PRINT 84;"N0" 
SH 30800 CLOSE 84 

YH 30810 N=2!X=12: Y=7:DX=3:DY=2 
MM 30820 GOSUB 31000 
GT 30830 A=USR(CL,2J 
YG 30840 IF CH0ICE=1 THEN RETURN 
ST 30850 POP :G0T0 MAIN 
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ITR CiljJYl continued 



E WINDOW/TRACK 
WINDOW MOVE OP 

=STR$CN) :OLDY= 

C5) 

>Y AND TY<CY+D 

DX + 1) THEN KIO 

OLDY=TY 

Y<=Y OR TY>CY+ 

)) THEN XIO 15 

1020 

HEN 31060 
THEN 31150 
3:XI0 150,111,0 

109O 

HEN 31100 

8 

J 

,X,Y) 

DY) OR TX< = X 



GF 31000 REM *** ALL-PURP05 

ER INTEGRATER CINCLUDE5 

TION) *** 
MA 31010 WIN$="W":WIN$C2,2) 

-1 
XU 31020 TX=PEEKC4) :TY=PEEK 
LX 31030 IF TYOOLDY AND TY 

Y+l) AND TX>X AND TX<CX+ 

250,111, 0,TY-CY + 1) , WINS: 

IP 31040 IF OLDYO-1 AND (T 

DY) OR TX<=X OR TX> tX+DX 

O,»1,O,0,WIN$:OLDY=-1 
YO 31050 IF STRIGCOJ THEN 3 
YX 31O60 IF NOT STRIGCO) T 
TW 31070 IF TXOX OR TY<>Y 
IN 31080 POKE B0RDERCHAR,12 

, O, WINS 
GL 31090 IF STRIGCOJ THEN 3 
RX 31100 IF NOT STRIGCO) T 
MR 31110 POKE B0RDERCHAR,12 
EL 31120 X=PEEKC4) :Y=PEEKC5 
YK 31130 A = USR CMOUEWINDOW, N 
YD 31140 GOTO 31010 
DL 31150 IF TY<=Y OR TY> CY+ 

R TX> CX+DX) THEN 31O10 
PC 31160 CHOICE=TY-Y 
EG 31170 RETURN 



Listing 5. 
BASIC listing. 

08 10 POKE 82,0:? CHRSC125) 

MG 20 0P=39936:CL=39939:C0PY=39951:BCHAR= 

39961: M0VEWIND0W=39942:STPTRACK=39957 : 

TRACKER=39954:M0UETRACKER=39945 
UK 30 ERA5ETRACK=39948 
MF 40 DIM CLOCKS C32) , CALCSC 32) , DISKS C32) , 

NUM$C8) ,FUNCSC4) : FUNC$ = "KIHu" 
00 50 DIM WIN$C2) , WIN1SC20) , X C4) , Y C4) , DX C 

4) , DY C4) , H$ C2) , MS C2J , 5$ C2) , NAME$ C18) , E 

XTSC4) ,FNAME$C14) :I0CB=848 
5P 60 G05UB 1590 
YM 70 WINl$ = "P'^U":WINlSC6)="rf!*^":WINl 

SCIl)="C#:E":WINl$C16)="[I]Hil!] " 
SU 80 A = U5RCC0PY,A5CC" ,"J , ADR CCLOCKS) ) :A = 

USRCCOPY, ASCC"~") , ADRCCALCS)) :A=U5RtC0 

PY,ASCC"r"> , ADRCDISKS) J 
GC 90 FOR N=l TO 4 
WB 100 G05UB 3015O 
XM 110 A=U5RC0P,N,XCN),YCN),DXCN),DYCN)) : 

OPEN Hi, 8,0, WINS :T = N»5-4: PRINT ttl;WINl 

SCT,T+4) :CL05E 111 
HT 120 NEXT N 
CT 130 A=U5R (TRACKER) 
QZ 140 IF STRIGCO) THEN 140 
XH 150 IF NOT STRIGCO) THEN 150 
WE 160 X=PEEKC4) :Y=PEEKC5) 
XT 170 FOR N = l TO 4 : IF XOXCN) OR YOYCN) 

THEN 220 
LK 180 G05UB 30150:P0KE BCHAR, 123 : XIO 150 

,111,0,0, WINS 
VU 190 IF STRIGCO) THEN 190 
5P 200 IF NOT STRIGCO) THEN 200 
SU 210 POKE BCHAR, 128:XI0 150,«1, O, O, WINS 
:XCN)=PEEKC4) : YCN)=PEEKC5) :A=USRCMOUEW 

INDOW, N,XCN) , YCN)) :POP : GOTO 140 
HU 220 NEXT N 
OX 230 FOR N=l TO 4 
NF 240 IF Y>YCN) AND Y<=Y CN) +DY tN) AND X> 

XCN) AND X< = XCN)+DXCN) THEN POP :G0TO 

270 
IA 250 NEXT N 
NL 260 GOTO 140 

FW 270 ON N GOTO 600,880,1560,280 
BQ 280 REM MEMO PAD 
YP 290 N=5:X=XC4) :Y=YC4) : DX=10 : DY=4 : A=USR 



COP,N,X,Y,DX,DY) 
QT 300 OPEN ttl,8,0,"W5:":PRINT «1;"EDIT M 

EMO":PRINT ttl;"LOAD MEMO":PRINT ttl;"SA 

UE MEM0":PRINT ttl;"PRINT MEMO" 
OG 310 CLOSE ItllGOSUB 25000 
IZ 320 FOR Nzl TO 5 : A=USR CCL, N) : NEXT N 
XL 330 ON CHOICE GOTO 340,380,430,490 
PK 340 OPEN tU,4,0, ,, K:" 
KU 350 GET tll,X:IF X = 27 THEN 370 
CD 360 ? CHRSCX) ; : GOTO 350 
QK 370 CLOSE ItllGOTO 90 
AX 380 REM LOAD MEMO 
JB 390 A^USRCTRACKER) :G0SUB 1O0OO:IF CHOI 

CE>CNT THEN 90 
GV 400 TRAP 420:0PEN »1, 4, 0, FNAMES 
WI 410 POKE IOCB+2,7:G0SUB 590 
WI 420 TRAP 4000O:CLOSE 111 : GOTO 90 
GY 430 REM SAUE MEMO 
GA 440 N=5:X=8:Y=10:A=U5RC0P,N,X,Y,24,1) : 

OPEN tt2,l2,0,"W5:":PRlNT »2; "Fi lenane? 

":LEFT=9 
AD 450 G05UB 30000 : A=U5R CCL, 5) : CLOSE H2 
IS 460 TRAP 480:0PEN tti, 8, O, NAMES 
ZC 470 POKE I0CB+2,ll:G0SUB 590 
WU 480 TRAP 4O00O:CLOSE ttl:GOTO 90 
OK 490 REM PRINT MEMO 
CU 500 DD=PEEK C89)*256+PEEK C88) 
JH 510 TRAP 580:0PEN HI, 8, O, "P : " 
"5 520 FOR N=l TO 24 
BX 530 FOR X=DD TO DD+39 : CHAR=PEEK tX) : IF 

CHAR>127 THEN CHAR=CH AR-128 
EB 540 IF CHAR>=96 THEN 570 
LT 550 IF CHAR>=64 THEN CHAR=CHAR-64 : GOTO 

570 
IP 560 CHAR=CHAR+32 
SQ 570 PUT tti,CHAR:NEXT X : DD = DD+40 : PUT HI 

,155:NEXT N 
WM 580 TRAP 4OO0O:CLO5E ItllGOTO 90 
EC 590 POKE I0CB+4,PEEK£88) : POKE I0CB+5,P 

EEKt89):P0KE IOCB+9 , 3 : POKE IOCB+8,192: 

A = USR CADR C'hhhSLUH") , 16) : RETURN 
YU 600 REM CLOCK 

N=5:X=Xtl) :Y=YC1) :DX=13:DY=2 
A=U5RC0P,N,X,Y,DX,DY) 
DI 630 OPEN H2,12,0,"W5:" 

DW 640 PRINT «2;"5ET CLOCK*DISPLAY CLOCK" 
KC 650 GOSUB 25000 : A=USR CCL, N) 

660 IF CH0ICE=2 THEN 760 

A=USR COP, N,X,Y, 12,1) :LEFT=6 
WL 680 PRINT »2;"H0URS?":G05UB 30000:HR5= 

UALCNAMES) :LEFT=8 
MY 690 XIO 50, 113, 9,0, "WS:" 
TJ 700 PRINT »2;"MINUTES?":G0SUB 30000:MI 

NrgAL (NAMES) 
MJ 710 XIO 5O,tt3,0,0,"W5: M 
QF 720 PRINT »2; "SECONDS?" : GOSUB 30000:SE 

C=VALCNAME$) 
EL 730 POKE 18,8:P0KE 19,0:P0KE 20, O 
MZ 740 A=USRtCL,5) 
AC 750 CLOSE «2 : GOTO 130 
PA 760 REM DISPLAY 

FI 770 A=U5RC0P,5,XC1),YC1),8,1) 
GL 780 OPEN m,8,0,"W5: M 
LW 790 T=CPEEKC18)*65536+PEEKC19)*256+PEE 

K C2Q) ) /6O+HRS*360O+MIN*60+5EC 
YO 800 H=INTCT/3600) :M=INT(CT-H*360O)/6O) 

: S=INT (T- CH*360Q+M*60) ) 
JY 810 HS=STRSCH) !IF H<10 THEN HS^'O" : H$ C 

2)=5TR$CH) 
MR 820 M$=STR$CM) : IF M<10 THEN MS= M 0" : MS C 

2)=5TR$CM) 
VD 830 S$=STRSCS) !IF S<10 THEN SS="0":S$C 

2)=STR$C5) 
MQ 840 XIO 50.H3,0,0,"W5:":PRINT ttljHS;": 

";MS;":";S$ 
AV 850 IF STRIGCO) THEN 790 
FZ 860 IF NOT STRIGCO) THEN 860 
XD 870 CLOSE ttl:CL05E 112 : A=USR CCL, 5) : GOTO 



BM 610 
HY 620 



MU 

FT 670 
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130 
DN 880 REM CALCULATOR 
CR 890 X=XC2) :Y = YC2) : SUM=0 : FUNC=0 
XU 900 A=U5RC0P, 5,X,Y, 10,111 
DH 910 OPEN tt2,12,0,"W5: M 
JT 920 GOSUB 10150:PRINT tt2:PRINT tt2j"| 



ND 
JH 
JB 
PH 
RH 
CF 



print »2j"C3 GH EH ED" 

PRINT tt2:PRINT tt2;"J Q 
PRINT tt2:PRINT 82;"; ' 



PRINT tt2:PRINT 02;' 



- W ii 

I: 



930 

940 

950 

960 

970 PRINT tt2:PRINT tt2;"Q 

980 CNT = 1 
CM 990 IF STRIGCO) THEN 990 
LP 10G0 IF NOT STRIGCO) THEN 1000 
MA 1010 TX=PEEKC4) :TY=PEEKC5) 
GN 1020 IF TXOX OR TYOY THEN 1070 
PA 1030 POKE BCHAR, 123:XI0 150, ttl, , 0, "W5 

* II 

00 1040 IF STRIGCO) THEN 1040 

RY 1050 IF NOT STRIGCO) THEN 1050 

PM 1060 POKE BCHAR, 128:X=PEEK C4) :Y=PEEKC5 

) : A=USRCM0VEWIND0W,5,X, Y) : GOTO 990 
WJ 1070 IF TX<=X OR TX>X+10 OR TY<Y+3 OR 

TY>Y+11 THEN 990 
EM 1080 CX=TX-X-l:CY=TY-Y-3 
OJ 1090 IF CCY AND INT CCX/2) OCX/2) OR IN 

TCCY/2) OCY/2 THEN 990 
KM 1180 IF CNT=2 AND NUM$="." THEN NUMS C2 

)z"0" 
DL 1110 IF CY=0 THEN 122G 
IX 1120 NX=CCX-2)/2:NY=CCY-2)/2 
VH 1130 IF NX = AND NY=3 THEN NUM=0:GOTO 

1180 
Hft 1140 IF NX=1 AND NY=3 THEN NUM$CCNT,CN 

T)=".":G0T0 1190 
BU 1150 IF NX<0 OR NX>2 OR NY<0 OR NY>2 T 

HEN 130O 
LP 1160 NUM=7-3*NY+NX 
HM 1170 IF CNT = 9 THEN 990 
CO 1180 NUMSCCNT,CNT)=STRSCNUM) 
AY 1190 IF CNT=i THEN GOSUB 10150 : NUMS C2) 

— III! 

EX 1200 XIO SQ^ljl^/'WSl-lPRINT »2;NUM$ 

JM 1210 CNT=CNT+l:G0TO 990 

OR 1220 REM MEMORY 

NX 1230 IF CX=0 THEN A = USR CCL, 5) : CLOSE tt2 

:GOTO 140 
AO 1240 IF CX=2 OR CX = 3 THEN GOSUB 10150 : 

PRINT tt2;MEM:NUM$ = 5TR$CMEM) : GOTO 980 
BY 1250 IF NUM$ = ,,M THEN 990 
CK 1260 IF CX = 5 OR CX = 6 THEN MEM=MEM~VALC 

NUMS) :GOTO 1290 
DP 1270 IF CX=8 OR CX = 9 THEN MEM=MEM+UALC 

NUMS) :GOTO 1290 
VI 1280 GOTO 990 
NU 1290 FUNC = 0:XIO 50, ttl, 0, O, "W5 : " : PRINT 

«2;"[I": GOSUB 10150:G0T0 980 
PU 1300 C=tCY-2J/2+l 
DD 1310 IF CX=0 AND C>2 THEN ON C-2 GOTO 

1490,1510 
BR 1320 IF NUMS=" n THEN 990 
WX 1330 IF FUNC=0 THEN SUM=VAL CNUMS) 
YK 1340 IF CX=0 THEN ON C GOTO 1430,1460 
DR 1350 IF FUNC THEN ON FUNC GOSUB 1390,1 

400, 1410, 1420: GOSUB 10150:PRINT H2;SUM 
DL 1360 IF CY=8 AND CX=6 THEN FUNC=0 : NUMS 

=STR$CSUM) :G0T0 980 
HT 1370 FUNC=C 
SL 1380 GOSUB 10150:PRINT «2; SUM: GOSUB 15 

30IG0T0 980 
GM 1390 SUM=5UM/UAL CNUMS) : RETURN 
DA 1400 5UM=SUM*UAL CNUMS) : RETURN 
EO 1410 SUM=SUM~VAL CNUMS) : RETURN 
DT 1420 SUM=SUM+VAL CNUMS) :RETURN 
YT 1430 REM PERCENT 
UW 1440 IF FUHC=0 THEN 5UM=UAL CNUMS) /100 : 

GOTO 1480 



HZ 1450 NUM=SUM*CVAL CNUMS) /1O0) :CY=8:CX=6 

:NUM$=STR$CNUMJ :GOTO 1350 
YE 1460 REM SQUARE ROOT 
SU 1470 SUM=5QRCVAL CNUMS) ) 
ZS 1480 FUNC=0:NUMS=STR$CSUM) : GOTO 1380 
ES 1490 REM CLEAR 
YG 150O GOSUB 10150:G0SUB 1530 : NUM$=" M : GO 

TO 980 
LI 1510 REM ALL CLEAR 
ZS 1520 GOSUB 1O150:XIO 50, ttl, O, O, "W5 : ■■ : P 

RINT tt2;" ":FUNC=0:SUM=O:MEM=O:NUM$ = ,,M 

:GOTO 980 
IG 1530 REM DISPLAY OPERATION 
TQ 1540 IF FUNC THEN XIO 50, ttl, 9, 0, "W5 : ■■ : 

PRINT tt2;FUNCSCFUNC,FUNC) 
RM 1550 XIO 5O,ttl,l,0,"W5:":RETURN 
XO 1560 REM DISK LOADER 
UR 1570 FOR N=l TO 4 : A=USR (CL, N) : NEXT N:G 

OSUB iO00O:IF CHOICE>CNT THEN 90 
DF 1580 RUN FNAMES 
NC 1590 REM GETDATA 

cm 1600 clock$="_-» v^cc rgjmq Q 1 * Al**-*-. J-0»»* 

UM 1610 CALC$="?p#>*l*1138<J&'CP{2+l+l+l+? ll ffl 

■ L f3 J 43 JL rD" 
CP 1620 DI5K5:"*¥>^M |*»imi^OH<^»£II 

UULIII*" 

OA 1630 FOR N=l TO 4:READ X, Y, DX, DY : X CN) = 

X:YCN)=Y:DXCN)::DX:DYCN)=DY:NEXT N 
AX 1640 RETURN 
ZP 1650 REM WINDOW DATA 
PL 1660 DATA 0,0,2,2,10,0,2,2,20,0,2,2,30 

,0,4,1 
WM 1000O REM DISK SELECTION 
DU 10010 X=13:Y=0:DX=11:DY=22:N=5 
EZ 10020 A=USRC0P,N,X,Y,DX,DY) 
HA 10030 OPEN tti^,©,'^:*.*" 
US 10040 OPEN »2,12,O,"W5:":CNT=0 
UO 1005O INPUT ttl,NAME$:IF NAMES C2, 21 =" " 
THEN PRINT tt2; NAMES C3, 13) : CNT = CNT + 1 : G 

OTO 10050 
OP 1O060 CLOSE ttl 
NX 10070 GOSUB 250OO 
KN 10080 XIO 5O,ttl,0,CHOICE-i,"W5:":INPUT 

tt2, NAMES: CLOSE »2 
AU 10090 EXT$ = ,, . ,, :EXT$C2)=NAME$C9) 
OT 10100 FOR N=i TO 8 

DE 10110 IF NAME$CN,N)= M " THEN 10130 
IC 10120 NEXT N 
TX 10130 NAMESCN)=EXTS:FNAME$="D:":FNAMES 

C3)=NAME$ 
DJ 10140 CLOSE »2:A=USRCCL,5) : RETURN 
CN 10150 REM CLEAR DISPLAY 
BG 1016O XIO 50,ttl,l,0,"W5:":PRINT 82;" 

II 

JN 10170 XIO SO^l^O^'WSi'-lRETURN 

GM 25OO0 REM *** ALL-PURPOSE WINDOW/TRACK 

ER INTEGRATER CINCLUDES WINDOW MOVE OP 

TION) *** 
CB 25010 GOSUB 30150 : 0LDY=-1 
YC 25020 TX = PEEKC4) :TY = PEEKC5) 
ME 25030 IF TYOOLDY AND TY>Y AND TY<CY + D 

Y+l) AND TX>X AND TX<(X+DX+1J THEN XIO 
250, ttl, 0,TY-fY + l), WINS: OLD Y = TY 
IW 25040 IF OLDYO-1 AND CTY<=Y OR TY> CY+ 

DY) OR TX<=X OR TX> CX+DX) ) THEN XIO 15 

0,ttl, 0,0, WINS !0LDY = -1 
BT 25050 IF STRIG CO) THEN 25020 
CR 2506O IF NOT STRIG CO) THEN 25060 
XT 25070 IF TXOX OR TYOY THEN 25150 
EB 25080 POKE BCHAR, 123 : XIO 150, ttl, 0, O, WI 

N$ 
JO 25090 IF STRIGCO) THEN 25O90 
VR 25100 IF NOT STRIGCO) THEN 25100 
MS 25110 POKE BCHAR, 128 
ES 25120 X=PEEKC4) :Y=PEEKC5) 
YR 25130 A=USRCMOVEWINDOW,N,X, Y) 
ZY 25140 GOTO 25010 
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KI 25156 IF TY< = Y OR TY> CY+DYJ OR TX< = X 

R TX>CX+DXJ THEN 25018 
MI 25160 A=U5RCSTPTRACK) 
PM 25170 CHOICE=TY-Y 
ER 25180 RETURN 
TI 30000 REM INPUT STRING CNEEDS : LEFT,N, 

OPENED I0CB82,X,YJ 
PT 30010 G05UB 30170 
XM 3802O C=LEFT!OPEN 81, 4, O, "K ! " 
LP 30030 XIO 100,83, C, O, WINS : A=USR CMOVETR 

ACKER, CCC+X+i>*8) , CY*8+14) J 
KF 30040 GET 81, CHAR 
MR 30O5O IF CHAR<>126 THEN 30090 
DD 30060 C=C-l:IF C<LEFT THEN CrLEFT 
BY 30070 XIO 50,83, C,0,WIN$:PUT 82,32 
ZF 30080 GOTO 30030 
JK 30090 IF C = 4 THEN 30030 
ZT 30100 PUT 82,CHAR!CrC+l:IF CHAR<>155 T 

HEN 38030 
ZK 30110 XIO 50,83, LEFT, 0, WINS 
HH 3012O INPUT 82,NAME$:PRINT 82 
FN 3013O CL05E 81 : A = USR IERASETRACK) 
D5 30140 RETURN 
BZ 30150 REM FIND NAME 
IT 30160 WIN$="W M :WIN$C2,2)=5TR$tN) 
EE 30170 RETURN 
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by Mark Andrews 



Your Atari computer has a large selection of text and 
graphics modes, and it isn't difficult to switch from one 
mode to another in the middle of a program. But using 
more than one graphics mode on the same screen at the 
same time — well, that's a little harder. To mix graphics 
modes on a screen display, it's necessary to understand 
a programming technique called display-list modification. 
And that's our topic. 

In a type-and-run program listed at the end of this arti- 
cle, I'll demonstrate how to create a screen display that 
includes three different modes: graphics 0, graphics 1 and 
graphics 2. There'll be one line of text in each mode, and 
each line will be displayed in a different color. The result 
will be a good-looking title screen that you can use with 
any homemade BASIC or assembly language program. 
Once you understand the principles used to design the 
display, you can create many kinds of mixed-mode 
screens. 

The program used for this demonstration was written 
in assembly language on a MAC/65 assembler-editor pack- 
age from OSS. It's a type-and-run program I've named 
HELLO. If you own a MAC/65 assembler, you can type, 
assemble and run the program as written. If you own an- 
other assembler, you may have to make some modifica- 
tions in the program. And, if all of this talk about as- 
semblers and assembly language is a complete mystery to 



you, you can learn assembly language by reading my book, 
Atari Roots: A Guide to Atari Assembly Language, pub- 
lished by Datamost in 1983. 

Your Atari's graphics modes. 

Before I list the HELLO program and explain how it 
works, here's some background information on how your 
Atari generates its screen display. 

When you turn on your Atari, it automatically goes into 
a screen mode called graphics — a standard 40-column 
text mode. Bat if you type the statement GRAPHICS 1, or 
include it in a BASIC program, your computer will switch 
to a special text mode that displays "fat" characters — 
characters twice as wide as normal text. The command 
GRAPHICS 2 will give you giant characters, twice as high 
and twice as wide as ordinary characters. And there are 
several other graphics instructions you can use to create 
high-resolution graphics displays. 

That's an extraordinarily powerful set of graphics modes. 
And, if you know how to program in assembly language, 
you can make it even more powerful. With assembly, you 
can mix your Atari's graphics modes in any combination 
you like. You can print normal characters, fat characters, 
giant characters and even high-resolution graphics — all 
on the same screen. Then, you can add fine-scrolling to 
any part of the screen you want, for an even more eye- 
catching display! 

Along with their many graphics modes, Atari computers 
also have some other graphics-generating capabilities that 
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are quite sophisticated. In computers less advanced than 
your Atari, one block of RAM is usually dedicated to 
screen memory. Within that block of memory — often 
known as "screen memory" — there's usually one memo- 
ry location for each text character on the screen. When 
a certain text character is to be printed in a particular 
screen location, a code number representing that charac- 
ter is placed in the memory register that corresponds to 
its screen location. A character which equates to what- 
ever code number was used then appears in the desired 
location on-screen. 

Atari graphics are a bit more sophisticated than that — 
and just a bit more complicated, too. Your Atari uses two 
special chips to generate its graphics display: one called 
an ANTIC chip and one called a CT1A/GTIA chip. (The 
early Ataris were built with a CTIA chip; newer models 
use a GTIA.) 

The CTIA/GTIA is a nonprogrammable chip that con- 
trols colors and performs various other functions. But your 
computer's other graphics chip, the ANTIC, is a real 
microprocessor. It has its own miniature instruction set, 
and its operations can be controlled with a special kind 
of program called a "display list." So, to create graphics 
using the ANTIC chip, you have to know how to use the 
ANTIC chip's instruction set and how to write display-list 
programs for the ANTIC microprocessor. And, to under- 
stand how ANTIC works, it's necessary to know some fun- 
damental facts about the operation of a video display. 

Scan lines and mode lines. 

The picture on a TV screen is made up of tiny horizon- 
lal lines — 262, to be exact. Each of these is called a "scan 
line." 

These scan lines are produced by an electron gun be- 
hind your TV monitor's picture tube. This electronic pis- 
tol fires electrons at the TV picture tube in what's known 
as a "raster scan" pattern — a zigzag pattern that begins 
at the upper left-hand corner of the screen and ends in 
the bottom right-hand corner. 

There are 262 horizontal scan lines on a video tube, and 
the whole 262-line display is replaced by a completely new 
display sixty times each second. Between each of these 
lightning-fast scenery changes, there's an extremely brief 
interval — called a "vertical blank" period — in which the 
whole screen goes blank. 

Dot-matrix characters. 

Look closely at a computer-generated text display on a 
TV screen, and you may be able to see that each charac- 
ter on the screen is made up of tiny dots. If you could look 
closely enough at the screen text graphics generated by 
your Atari — while your computer is in its normal 40- 
column by 24-line text mode — you'd be able to see that 
each letter is made up of sixty-four dots, arranged in a ma- 
trix eight dots wide and eight dots high. 

Because of a picture-tube design technique called "over- 
scan," however, not all of the 262 scan lines available for 
a TV picture appear on-screen; some fall off the edges and 
are never seen. So computer programs that generate vid- 
eo displays don't usually make use of all of those lines. 



Your Atari, for example, uses only 192 of the 262 scan lines 
available. 

Atari BASIC supports four text modes, each of which 
produces letters of a different size. But, no matter what 
text mode you're in, and no matter how large the letters 
on your screen are, each line of text in an Atari display 
is always called a "mode line." In your Atari's normal 
40-column by 24-line text mode — the mode referred to in 
Atari BASIC as "graphics 0" — each letter in a mode line 
is eight dots high, and each of those dots equates to one 
scan line. 

In BASIC'S graphics mode, therefore, one mode line 
is equal to eight scan lines. 

There are two other text modes in Atari BASIC — 
graphics 1, in which the characters on-screen are the same 
height as graphics characters but twice as wide; and 
graphics 2, in which the characters are twice as high and 
twice as wide as standard graphics characters. When 
your computer is in its graphics 1 mode, each mode line 
is made up of eight scan lines — the same number of scan 
lines used in a mode line in graphics 0. When your Atari 
is in its graphics 2 mode, however, each mode line equates 
to sixteen scan lines. 

Antic mode 3. 

There's another text mode, called "ANTIC mode 3," that's 
not supported by BASIC. In ANTIC mode 3, each mode 
line is made up of ten scan lines. You can find out more 
about ANTIC mode 3 by reading the Atari programmer's 
manual De Re Atari, or by consulting the Atari 400/800 
Technical Reference Notes published by Atari. 

In addition to their four text modes, Atari computers 
have numerous graphics modes — either ten or thirteen of 
them, depend on what kind of graphics hardware came 
installed in your model. (The number of graphics modes 
offered by Atari computers varies, with which chip is in- 
cluded, CTIA or GTIA). 

In the non-text graphics modes, the number of scan lines 
per mode line can range from one (in high-resolution 
graphics) to eight (in low-resolution). The numhev of colors 
available also differs from graphics mode to graphics mode. 

Table 1 shows the graphics modes available to Atari 
programmers. You may notice that there are differences 
between the ANTIC and the BASIC designations of these 
modes, and that ANTIC supports more modes than Atari 
BASIC does. And this table doesn't include the special 
modes available to owners of GTIA chips, since programs 
using those modes won't work properly on all Atari com- 
puters. If you want to use them anyway, you can find out 
how in De Re Atari. 

Customizing your Atari's screen display. 

Two steps are needed to custom design an Atari screen 
display. First, you have a special kind of program called 
a "display list." Then you have to tell your computer how 
to use the display list you've designed. 

A display list is made up of a series of 1-byte instruc- 
tions that can be placed almost anywhere in your com- 
puter's available RAM. Anytime you want to see what a 
display list looks like, you can find one by using your as- 
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sembler's debugging utility to peek into your computer's 
memory. 

When you turn on your computer, it automatically goes 
into its graphics mode, and the address of the display list 
it uses to generate that mode is always stored in two loca- 
tions — specifically, memory addresses $230 and $231. 
Memory register $230 always holds the low byte of the start- 
ing address of your computer's display list, and memory 
register $231 always holds the high byte of the display list's 
starting address. So, once you know the contents of mem- 
ory registers $230 and $231, you'll be able to locate the dis- 
play list your computer's currently using. 

Once you locate your computer's graphics display list, 
you'll find that it looks something like this: 

70 70 70 42 20 7C 02 02 

02 02 62 02 02 02 02 02 

02 02 02 02 02 02 02 02 

02 02 02 02 02 41 E0 7B 

As you can see, a display list is a pretty strange-looking 

program. Let's examine it, byte by byte, right now: 

BYTES 1-3 
$70 $70 $76 

Each byte in a display list has a specific meaning to the 
ANTIC chip. Within each byte, each nybble — that is, each 
hexadecimal digit — also has a specific meaning. For ex- 
ample, this display begins with three bytes that hold the 
same hexadecimal value: $70. In the programming language 
of the ANTIC chip, the value $70 tells ANTIC to display 
one blank mode line — which in BASIC graphics 0, equates 
to eight blank scan lines. 

This, as it turns out, is the standard way to start a dis- 
play list for a graphics display. Because of the overscan 
characteristic of a TV screen, it's standard practice to kick 
off a graphics display with three blank mode lines — or, 
in ANTIC language, with three $70s. That will pull the be- 
ginning of your graphics display down to the top of your 
TV's picture tube, where you can be pretty sure your com- 
plete display will be visible on-screen. 

BYTES 4-6 
$42 $20 $7C 



After three blank mode lines have been displayed, we 
get to the first actual display byte on our sample display 
list: the hexadecimal number $42. In ANTIC language, the 
value $42 is what's known as a "load memory scan" (LMS) 
command. After all necessary blank lines have been taken 
care of, the first display byte in a display list is always a 
load memory scan command, and an LMS command is al- 
ways a 3-byte instruction. In the display list we're examin- 
ing, the load memory scan instruction is made up of the 
3 bytes $42, $20 and $7C. 

The first nybble in this instruction — the digit 4 — alerts 
ANTIC that this is an LMS instruction. 

The second nybble in the LMS instruction — the digit 
2— tells ANTIC to display an ANTIC mode 2 line. Consult 
the table on graphics modes presented a few paragraphs 
back, and you'll see that, in ANTIC language, mode 2 is 
the same as BASIC mode 0. 

The next 2 bytes of the LMS command — the bytes $20 
and $7C — provide ANTIC with the address at which screen 
memory will begin. ANTIC interprets these 2 bytes low- 
byte first, in standard 6502 fashion. When ANTIC encoun- 
ters the LMS instruction $42 $20 $7C, therefore, the first 
byte displayed on your Atari's video screen will be what- 
ever byte is stored in memory location $7C20. 

When you write a display list, you can put your screen 
memory in just about any convenient, available block of 
RAM. And you can fill that RAM up with whatever you 
like — codes that equate to text, display screens drawn with 
the help of a graphics program, or character graphics creat- 
ed with a graphics-generator program. Once you have a dis- 
play created, you can tell your display list where to find 
it, by placing its starting address in the 2 bytes that follow 
your display list's LMS command. 

BYTES 7-23 
The byte $02, repeated 22 tines 

As explained above, the first LMS command in a dis- 
play list tells ANTIC two things: the address at which 
screen memory begins, and the graphics mode to use to 
display the first mode line of text or data that will be found 
starting at that address. 

After ANTIC has been presented with this information, 
it must be told what graphics mode to use to generate each 
subsequent mode line that will displayed on-screen. 

In the display list we're examining, every mode line on 
the screen is an ANTIC mode 2 line. Therefore, the next 
twenty-three instructions in this display list are all the 
same; each will tell ANTIC that the next line on the screen 
will be an ANTIC mode 2 line. 

What would happen, you may ask, if all these instruc- 
tions were not the same? Well, if they weren't, then more 
than one graphics mode could be displayed on-screen 
simultaneously. Text of various sizes could be displayed on 
the same screen, and text and graphics modes could be in- 
termixed as desired. This is a very powerful — and quite 
unusual — capability of Atari computers. You'll get a chance 
to see exactly how it works before you finish this article. 



BYTES 30 
$41 $EO 



- 32 
$7B 
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Every display list must end with a 3-byte command 
called a JVB (jump on vertical blank) instruction. The first 
byte in a JVB instruction is always the value $41. The next 
2 bytes always combine to form a jump address. The des- 
tination of the jump is always the beginning of the dis- 
play list in which the jump is contained. 

As it happens, the display list we're looking at starts at 
memory address $7BE0. So that's the address that follows 
(low byte first) the JVB instruction $41. 

When ANTIC encounters the JVB instruction $41 in a 
display list, it jumps back to the beginning of the display 
list, waits for the next vertical blank period between raster 
scan displays, then jumps to the address that follows the 
JVB instruction. And, since this address is the address of 
the beginning of the display list, what the JVB instruction 
really does is run the display list again. 

Running a display list. 

As I've pointed out, a display list can be placed in al- 
most any convenient spot available in your computer's 
memory. Screen memory can be placed just about any- 
where in RAM, too. Once you've created a display list and 
a block of data to be used as screen memory, all you have 
to do to put your custom-designed display on your TV 
screen is write a simple program that tells your computer's 
operating system (OS) where your display list is. 

To direct your computer to your custom display list, you 
simply store new values into a pair of OS memory loca- 
tions known as "shadow" locations. Shadow addresses are 
used often in Atari programming, so I might as well ex- 
plain what they are right now. 

In your computer's memory, there are some very useful 
hardware registers not normally accessed by user-written 
programs. But sixty times per second, the data in each 
of these memory locations is updated. During this updat- 
ing process, the value stored in each register is replaced 
by data that's been stored in a corresponding shadow reg- 
ister. And shadow registers are in user-accessible RAM, 
So, by changing the value in a shadow register, you can 
also change the value of its corresponding hardware reg- 
ister. For most intents and purposes, therefore, a shadow 
register works just about like any other OS register situat- 
ed in RAM. 

Three shadow addresses that are often used in display- 
list programs are $22K $230 and $231. Address $22F is 
an Atari OS memory location called SDMCTL (Shadow 
Direct Memory Access Control). Addresses $230 and $231 
are OS locations called SDLSTH (Shadow Display List 
Pointer - Low) and SDLSTL (Shadow Display List Pointer 
- High). 

To write a program that will put a custom display list 
on your Atari's screen, all you have to do is follow these 
three steps: 

(1) Turn your computer's ANTIC chip off by stor- 
ing a in $22F (SDMCTL). 

(2) Store the starting address of your custom dis- 
play list in $230 and $231 (SDLSTL and SDLSTH). 

(3) Turn your computer's ANTIC chip on again by 
storing the value $22 in $22F (SDMCTL). 



Doing it. 

Now that you know how to do all of this, we're ready 
for action. The following program, together with the arti- 
cle you've just read, should provide you with all of the 
information you'll need to start designing your own cus- 
tomized display lists and creating your own mixed-mode 
screen displays. B 

Mark Andrews is the author of Atari Roots (Datamost: 
1984), the top-selling book on Atari assembly language 
programming. He is also a frequent contributor to many 
computer magazines. This is the first article he's written 
for ANALOG Computing. 



Listing 1. 
Assembly listing. 



■HELLO' 



5DMCTL 

SDLSTL 
SDLSTH 

C0L0RQ 
COLOR! 
C0L0R2 
C0L0R3 
C0L0R4 



: MIXED MODE SCREEN DISPLAY 

.OPT OBJ 
*= $3000 
JMP INIT 



$022F 

$0230 
$0231 

$02C4 
$02C5 
$02C6 
$02C7 
$02C8 



;0S COLOR REGS 



;DISPLAY LIST DATA 
START 

L.INE1 .SBYTE " FROM " 

.5BYTE "A.H.A.L.O.G. :■■ 
LINE2 .SBYTE " a title " 

.sbyte "screen " 
LIHE3 .SBYTE " 

.SBYTE ■■ By CYour Nane!" 

•SBYTE " 
LINE4 .SBYTE " PLEASE " 

.SBYTE "STAND BY " 

DISPLAY LIST 

HLST 
3 BLANK LINES 

.BYTE $70, $70, $70 
MORE BLANK LINES 

.BYTE $70, $70, $70, $70, $70 
LMS, ANTIC MODE 6 CBASIC MODE 2) 

.BYTE $46 
TEXT LINE: "FROM A.N. A.L.O.G. 1" 

. N0RD LINE1 
MORE BLANK LINES 

.BYTE $70, $70, $70, $70 
LMS, ANTIC MODE 7 

.BYTE $47 
TEXT LINE: "A title screen" 

.WORD LINE2 
ANOTHER BLANK LINE 
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.BYTE $70 
;LMS, ANTIC MODE 2 [GRAPHICS 0) 

.BYTE $42 
;TEXT LINE: "By [Your Nane]" 

.WORD LINE3 
; BLANK LINES 

.BYTE $7Q, $70, $70,570 
jLMS, ANTIC MODE 6 

.BYTE $46 
;TEKT LINE: "PLEASE STAND BY" 

.WORD LINE4 
;5 BLANK LINES 

.BYTE $70, $70, $70, $70, $70 
;JVB INSTRUCTION 

.BYTE $41 
;ADDRESS OF DISPLAY LIST 

.WORD HLST 

■RUN PROGRAM 

{SWITCHING COLOR REGISTERS 
;FOR NICELY COLORED DISPLAY 
INIT 

LDA C0L0R3 

STA C0L0R1 

LDA C0L0R4 

STA C0L0R2 
;NOW WE'LL RUN THE PROGRAM 

LDA no 
JTURN OFF ANTIC WHILE WE STORE 
;OUR NEW LIST'S ADDRESS IN THE 
; 05 DISPLAY LIST POINTER. 

STA SDMCTL 

LDA WHLST&255 

STA SDL5TL 

LDA 8HL5T/256 

STA 5DLSTH 
;TURN ANTIC BACK ON 

LDA tt$22 

STA SDMCTL 



FINI 



RTS 
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by Barbara Donovan 



Have you ever wanted a tailor-made file management 
program that will allow you to choose exactly the infor- 
mation you want to include — and how you want to mani- 
pulate it? Have I got a program for you! 

The inspiration for this came while I was on a diet. Be- 
cause I'm a bit of a health food nut, I wanted to know how 
many calories and nutrients various recipes would have. 
This seemed like an excellent application for a computer. 
After all, they're supposed to be good at numbers — multi- 
plying and dividing, and stuff like that. I realized I need- 
ed a file with the information I wanted, which could be 
accessed selectively. 

Sounds simple, doesn't it? Well, I had a database pro- 
gram on which I could have set up records for each item 
needed. But that meant, every time I wanted to add up 
a recipe, I would have to go through all those records and, 
by editing them, put a key to indicate which to include. 
I would also have to change the multiple for each item 
desired. Doing it with pencil and paper would be faster. 

After a little thought, I decided what was needed was 
a way to choose which items I wanted to include in a par- 
ticular calculation (in computerese, that's an "indexed- 
sequential" file). This put me off my stride a little. I had 
read that the technique was really complicated. Guess 
what? It's not so bad. 



Using the Atari's NOTE and POINT functions, the pro- 
gram became relatively simple to write. Pointed Note is 
written in a top-down way (this just means everything pos- 
sible is in subroutines), so it could be debugged more eas- 
ily. Now, if you don't care how many calories things have, 
don't despair. Pointed Note will work for any type of data 
you wish to store, recall, organize and/or manipulate — 
calories are just one example. Also, if you save the vari- 
ous subroutines by LISTing them, you can easily build an- 
other program without a lot of retyping. 

There are a few things you should know about data- 
bases. Picture a file cabinet with several drawers. That's 
the "database." Each drawer has a bunch of file folders 
relating to the same sort of thing (like bills to be paid). 
That's a "file." Each file folder has a sheet of paper with 
information about a particular member of the file (like the 
electric bill). That's a "record." And, finally, each sheet 
of paper has various entries on it (like your account num- 
ber). Those are "fields." Fields are made up of alphanu- 
meric characters. 

So, what I want to set up is a file of foods, containing 
records for each food with fields of pertinent information. 
For the sake of this discussion, we'll consider the fields 
to be: (1) the name of the food; (2) and (3) the number of 
base units (i.e., 1 cup — to be treated as 1 and cup — two 
fields); and (4) the calories. Please note that the number 
and type of fields can easily be modified for any appli- 
cation. 
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This is a simple matter. I decided the name of the food 
could be a maximum of twenty-five characters, number of 
units a maximum of three characters, the unit itself fif- 
teen characters, and the calories three characters. Why is 
it important to decide on this information in advance? Two 
reasons: you need to know how large to dimension the 
variables; and each record must take up exactly the same 
amount of disk space. 

That last needs some explanation. When your computer 
writes data to the disk, it puts one character after another 
until it comes to an end-of-line character (EOL), which it 
also puts on the disk to demarcate the end of that field. 
When your computer inputs data from the disk, it reads 
each characater until it comes to the EOL, then stops. 
Therefore, if we want to be able to make any later changes 
to our data, each field must always be printed with exact- 
ly the right number of characters — or the updates and 
previous data may become confused with each other in 
the overwriting. 

In order to make sure of field length, we must pad any 
items less than the set field length with blanks. This is 
done in the PADDATA and PADITEM subroutines, before 
the data is written to disk. 

Now, getting back to that indexed-sequential stuff, we 
want to be able to find any record, read its information, 
manipulate that information and get results. However, we 
don't want to have to read through every record to find 
the one we want. In our sample program this wouldn't be 
a big deal, but if each record had, in addition to calories, 
Vitamin A, Vitamin B-l, Vitamin E, Calcium, Sodium . . . 
well, you get the idea. It would take forever to go through 
all of them every time. With this program, we only have 
to go through all of them when adding new records. 

When we add new records, we'll find out at which sec- 
tor and character on disk the record begins and go direct- 
ly to that location. This is done by having a separate file 
(another drawer in our cabinet), containing a record with 
only the name of the item, sector and character. Neat, huh? 

Basically, we need two functions to accomplish this. 
NOTE tells us where on disk the read/write head is lo- 
cated. The form is: 

NOTE #(channel no.),SECT,CHAR 

Channel number refers to the line you've opened to the 
disk drive, as in: OPEN #1,4,0,"D:DATA.FIL". SECT and 
CHAR are variable names which will contain, respectively, 
the sector number and character position of the drive head. 
Each sector has 128 character positions. 

POINT tells the read/write head to move to a specified 
position and start operations there. The form is: 
POINT #(channel no.),SECT,CHAR 

As you see, it's similar to the NOTE statement. The sec- 
tor and character positions must be given as variables. 
(Also, keep in mind that you can only POINT to a posi- 
tion in a file which exists and has been OPENed). 

The OPEN statement allows you to communicate direct- 
ly with peripheral devices, such as disk drives, cassettes, 
printers, keyboard, etc. Each device has a letter specifi- 
cation. We're only concerned with the disk drive, which 
is indicated by "D: (the colon is necessary), and must be 



followed by an existing filename (with one exception, dis- 
cussed below). 

In examining the OPEN statement, we're most con- 
cerned with the second specification (i.e., the #4 in OPEN 
#1,4,0,"D.DATA.FIL"). There are four modes of communi- 
cation available when OPENing to the disk drive: (1) in- 
put (mode 4) allows you to read only the data in your file; 
(2) output (mode 8) allows you to write only to the data 
file — when OPENing in this mode, the drive head will be 
at the beginning of the file; (3) append (mode 9) allows 
you to add data to the end of the file — the drive head upon 
OPENing will point to the end of the file and automati- 
cally allot another 128 characters, minimum, of disk space 
to that file; and (4) update (mode 12), which allows both 
reading and writing to the file — upon OPENing, the drive 
head will be at the beginning of the file. 

Mode 8 is the only way to create a file. If mode 8 is speci- 
fied (write only), DOS will open a file with the name 
specified and write data to it, if desired. Modes 8 and 12 
will write over and destroy any previous data. 

Now we get to the simple part. All we have to do to add 
data to our file is specify mode 9 (append), give the data 
to the computer, and have it added to the end of our file. 
Then, to find out where it is on the disk so that we can 
index it, we OPEN for a read (mode 4), NOTE the posi- 
tion of the head, read a record, write the name of the rec- 
ord and its position to the index, NOTE the position of 
the head again, read the next record, etc. . .until the end 
of the file. 

Now, when we want the info back, all we have to do 
is search our shorter index file, find the location of the 
item we're looking for, and have the read/write head 
POINT there and start inputting. 

Let's look at the program — a lot easier than trying to ex- 
plain all this. The beginning merely dimensions the string 
variables needed, fills BLANK$ with spaces and assigns 
line numbers to variables. This way, when I call a subrou- 
tine, I have an idea what it does (instead of seeing a 
meaningless number). 

And , if I renumber a subroutine, I just change one vari- 
able to point to that subroutine from any part of the pro- 
gram. Also, Line 82 identifies an end character, so the 
computer knows when we're finished adding, updating, 
or using data. 

Lines 100-260 are the main menu. 

Lines 300-391 form the routine to find a particular rec- 
ord, show you the basic unit, ask for a multiple, and print 
the number of calories for that food item. As you can see, 
most all it does is call on subroutines. This simplifies writ- 
ing the program since the same procedures are used in 
the other main routines. For example, ITEMIN, merely asks 
for the name of the food you want, has it padded with 
spaces in the PADITEM subroutine so it's the required 
twenty-five characters long, and returns. 

Data is padded by converting all nonstring variables to 
string variables, checking variable lengths, and adding 
blanks if necessary to fill the allotted space. 

FINDITEM locates the item in the index file and reports 
back. Next, the data is read — RDDATA subroutine — by 
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POINTing to the correct position on the disk file and read- 
ing the information. 

The UNITIN subroutine gets the multiple (i.e., you're 
using (wo apples in a recipe and the base unit is 1). 

Then FIGCAL and CALPRNT, as their names imply, fig- 
ure out the calories, print them out, and return. 

Once the last item is indicated by a CTRL-E entry, the 
program calls subroutine TOTPRNT, to print out the to- 
tal number of calories for all items and quantities speci- 
fied, then returns and waits for you to hit RETURN, to 
go back to the main menu. 

Lines 400-450 are the main routine to add new records 
to the file. Notice that this opens a channel to mode 9 (ap- 
pend). This routine calls subroutines already found, such 
as ITEM IN. 

WRITEDATA prints on disk all the dala fields (i.e., 
name, number, unit and calories) and waits at the end of 
the file for any more additions. 

If CTRL-E is entered, signalling no more additions, the 
channel to the data file is closed, and the program calls 
the INDEX subroutine. It OPENs two channels, one to read 
the dala file and NOTE the position of each record, and 
one to write a new index file (mode 8) over any old one 
still there. When finished, it returns to the main menu. 

Lines 500-570 are the update main routine, to easily alter 
a record (old record: Banana, 1, medium, 101/new rocord.Ba- 
nana.1. large, 116). This is the reason we've been padding 
our dala fields. Even though a new field may have more 
or less characters than the old, it won't change the disk 
position of the record. 

The only new subroutines are: NWDATA, which gets 
the changes you want to make; and WRITNW, which then 
POINTs to the beginning of the old record and writes over 
it with the new data. 

Finally, the TRAP statements send the program to 
ERRORl. This is an easy way to handle end-of-file. When 
the end is reached and the computer's asked to read more, 
an error occurs, and program execution halts. By using an 
error handler routine to check which error had occurred, 
the program may continue — even though an item is not 
found. Control is returned to the correct portion of the 
program by assigning each main routine a number con- 
tained in the variable TEST. 

All that's left is to create the files to be used. This is 
done in immediate mode (when the screen says READY). 
Just key OPEN #1,8,0,"D:DATA.FIL" and press RETURN. 
Then CLOSE ttl and RETURN. The same should be done 
to create the index file: OPEN #1,8,0,"D:INDEX.FIL". To 
start your file, run the program and hit 2 to enter the ADD 
routine. Now, key the information asked for, and it will 
be written to the data file and index file, appropriately. 

Three useful expansions of this type of program would 
be a directory, a multiple file routine and a hard-copy 
subroutine. 

The directory could print out either all names of the 
records or all the records in their entirety, by accessing 
the index file or the data file, respectively, and sequen- 
tially listing their contents. 

A multiple file would be used to remember a certain 



combination of records, such as a recipe. By putting in 
the name of a food item and its unit multiple, another file 
can be added to, with records containing: (1) recipe name, 
(2) number of items, (3) list of sector/character locations 
with a HOWMANY unit multiplier. By setting up a 
FOR/NEXT loop based on field (2), you could quickly 
POINT to each item included and figure the multiple for 
that particular recipe. 

You'll notice that I've used arrays for SECT and CHAR 
to facilitate this type of application. The arrays will con- 
tain sector/character positions for each item. When the 
FOR/NEXT loop is entered, the loop index is used as the 
array index, and the correct data will be written or read 
for the assigned number of items. 

Simplest of all, to obtain hard-copy, insert a question 
at the beginning of a routine — such as, Do you want a print 
out? Then, based on the INPUT answer, a variable (i.e., 
!'()$) is set. If the answer is yes, a hard-copy subroutine 
is called from a main routine. 

As I mentioned, this program is easily adapted to other 
uses: inventories, student test data, bills paid and pay- 
able, etc. 1 would be interested in hearing of other appli- 
cations. PI 

Barbara Donovan, a native New Yorker, lives in Virginia 
with her writer-husband and their three children. She is 
now taking courses and plans to seek a Ph.D. in Computer 
Science in the near future. She's been a computer hobbyist 
since 1979 (starting on a TRS-80, which was destroyed in 
a fire) and. since 7983, has been a loyal Atari owner. 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 



Listing 1. 
BASIC listing. 



AE 10 
MF 11 
MB 12 
OK 13 
AM 14 
BI 15 
IM 17 
RJ 18 
MR 20 

$C3 

UM$ 
ME 25 
PZ 26 

(2) 
ZB 30 

400 

00: 
HV 63 

040 

WDA 
HM 74 

850 
WZ 82 

BLA 
CM 97 
0M 100 
TZ 110 

0,2 



REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
REM * FIL 



REM 
REM 



* BAR 
REM XXXXXXKX 
REM 

REM XXXXX DI 
REM *** INIT 
DIM ITEM$(25 
) ,LA5TITEM$( 
(3) , CALS (3) , 
DIM CHAR £15) 
BLAHK$=" ":B 
=BLANK$ 
ADDITEM=400: 
C0UNTCAL=30 
FINDITEM=105 
PADITEM=195Q 
:ITEMIH=1000 
TA=1800:RDDA 
UNITIN=1250: 



E MANAGER * 

R V & 

BARA DONOVAN * 
XXXXXXXXXXXXXXXXXXXXX 



MEN5I0N AND XXXXXXXXX 
IALIZE VARIABLES XXXX 
3 , UNITS (15) , NAMES (25) , C 
25) , SECTS C3) , CHARS (3) ,N 
BLANKS C25) , TEMPS (3) 
,SECT(15) 
LANKSC25)=BLANKS: BLANKS 

CALPRNT=1350 : CLEARSCR=i 

: ERR0R1=1500 : FIGCAL=13 

0:INDEX=160O 

:PADSECT=1980:PADDATA=2 

:IUPDATE=5O0:MENUrlO0:N 

TA=il5Q:TOTPRNT=1450 

HRITEDATA=1700 : WRITNW=1 



LASTITEMS (1,1) -"i " : LASTITEMS (2, 25) = 

NK$ 

REM xxxxxxxxx MAIN MENU xxxxxxxxxx 

PRINT "H" 

POSITION 2,2:PRINT "TO" : POSITION 2 

PRINT "PRESS:" 
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PA 129 POSITION 2,4:PRINT "COUNT CALORIES 

"iPOSITION 20,4:PRINT "1 <RETURH>" 
JZ 130 POSITION 2,6:PRINT "ADD AN ITEM":P 

05ITI0N 20,6:PRINT "2 <RETURN>" 
QZ 140 POSITION 2,8:PRINT "UPDATE ITEM" I P 

05ITI0N 20,8:PRINT "3 <RETURN>" 
BA 180 TRAP 278IREM /ONLY TAKE NUMBERS/ 
NS 190 POSITION 2,22:PRINT "WHICH"; : INPUT 

C 
RN 200 ON C GOTO COUNTCAL, ADDITEM, IUPDATE 
UE 260 GOTO 190:REM /NO. BETWEEN 1-6 ONLY 
ZF 297 REM XXXXXX CALORIES FOR 1 xxxxxxx 
DJ 298 REM XXXXXX OR MORE ITEMS xxxxxxxk 
LC 300 PRINT "IS":TOTAL = 0:P = 8:TEST = 310:I = 1 
f>Z 305 TRAP ERR0R1 
DM 310 GOSUB ITEMIN 

YJ 320 IF ITEM$=LA5TITEMS THEN 390 
VB 330 GOSUB FINDITEM 
RN 340 GOSUB RDDATA 
LW 350 GOSUB UNITIN 
NH 360 GOSUB FIGCAL 
FW 370 GOSUB CALPRNT 
HJ 380 GOSUB CLEARSCR:GOTO 310 
XR 390 GOSUB TOTPRNT 
KG 391 POSITION 2,23:PRINT "PRESS RETURN 

FOR MENU"; :INPUT C$:GOTO MENU 
BV 397 REM XXXXXX HDD NEW ITEM xxxxxxx 
OX 400 PRINT "H":TEST=410:TRAP ERR0R1 
YO 402 OPEN ttl,9,0,"D:DATA.FIL" 
DN 410 GOSUB ITEMIN 
GF 420 IF ITEM$=LA5TITEM$ THEN CLOSE «1 : G 

OSUB INDEX:GOTO MENU 
YD 430 GOSUB WRITEDATA 
ID 450 GOSUB CLEARSCRiGOTO 410 
ZP 497 REM xxxxx UPDATE DATA FILE XXXXX 
GO 5O0 PRINT "IS" 
BH 510 TEST=510:TRAP ERR0R1 
DQ 520 GOSUB ITEMIN 

AA 525 IF ITEM$=LASTITEM$ THEN GOTO MENU 
UD 530 GOSUB FINDITEM 
RP 540 GOSUB RDDATA 
YT 550 GOSUB NWDATA 
XD 560 GOSUB WRITNW 
JH 570 GOSUB CLEARSCRiGOTO 510 
CW 997 REM XXXXXX ENTER ITEM/NAME XXXXXX 
V5 1000 POSITION 2,2 

WN 1010 PRINT "UCTRLVE" <RET>=STOP) "; 
WR 1020 PRINT "ENTER ITEM: ": INPUT ITEMS : L 

I=LENCITEM$) 
NM 1025 GOSUB PADITEM 
AX 1030 RETURN 

UP 1047 REM XXXX FIND ITEM LOCATION XXXX 
DG 1O50 OPEN ttl,4,0,"D:INDEX.FIL" 
CW 1060 TRAP ERR0R1 
DB 1070 INPUT ttl; NAMES 

KY 1080 INPUT ttl; SECTS: SECT CI) =UAL CSECTS) 
Rt> 1090 INPUT tJl;CHAR$:CHAR CI) =UAL CCHARS) 
IL llOO IF NAME$=ITEM$ THEN CLOSE ttllRETU 

RN 
OG 1110 GOTO 1070 

HY 1147 REM *** READ IN DATA FOR ITEM *** 
GO 1150 OPEN ttl,4,0,"D:DATA.FIL" 
UZ 1160 POINT ttl, SECT CI) , CHAR CI) 
DO 1170 INPUT ttl; NAMES 
SK 1180 INPUT ttl; HUMS 
XE 1190 INPUT ttl; UNITS 
YG 12O0 INPUT ttl;CAL$ 
MQ 1210 CLOSE ttl 
AJ 1220 RETURN 

JZ 1247 REM *** GET NUMBER OF UNITS XXXX 
QG 1250 POSITION 2,4:PRINT "UNIT :"; UAL CNU 

MS) ;" ";UNIT$ 
MC 1268 POSITION 2,6:PRINT "HOW MANY UNIT 

S"; SINPUT HOWMANY 
AY 1270 RETURN 

LF 1297 REM ** FIGURE NUMBER CALORIES ** 
WS 1300 ICAL=VALCCALS) 
00 1305 ICAL=ICAL*HOWMANY 



RW 1310 TOTALrTOTAL+ICAL 

AL 1320 RETURN 

PS 1347 REM * PRINT NUMBER OF CALORIES * 

YA 1350 RP = 2 

BM 1360 POSITION RP,P:PRINT ITEMS CI, LI) : R 

P=RP+LI+2 

CB 1365 NUM=UALCNUMS) 

XI 1370 POSITION RP,P: PRINT NUM*HOWMANY; " 

";UNIT$ 

FE 1380 POSITION 32,P:PRINT ICAL 

UU 1390 P=P+1:RETURN 

AA 1397 REM XXXXX CLEAR INPUT AREA XXXXX 

LH 1400 POSITION 2,2:PRINT " 

II 

SO 1405 POSITION 2,3!PRINT " 

II 

NG 14I0 POSITION 2,4:PRINT " 

II 

SX 1412 POSITION 2,5:PRINT " 

II 

AA 1415 POSITION 2,6:PRINT " 

II 

UZ 1417 POSITION 2,7:PRINT " 

II 

AN 1420 RETURN 

WO 1447 REM *** PRINT TOTAL CALORIES *** 

HN 1450 POSITION 2,21:PRINT "TOTAL CALORI 

ES:", TOTAL 
AZ 1460 RETURN 

GP 1497 REM XXXXX ERROR HANDLER ttl XXXXX 
EU 1500 ERR=PEEKC195) : CLOSE ttl:POP 
RZ 1505 GOSUB CLEARSCR 
JT 1510 IF ERR=136 THEN POSITION 2,2:PRIN 

T "ITEM NOT FOUND": GOTO 1530 
QP 1511 IF ERR=8 AND TEST=310 THEN P05ITI 

ON 2,2:PRINT "NUMERIC INPUT 0NLY":G0T0 
1530 
MY 1512 IF ERR = 8 AND TEST=4I0 OR TEST=510 
THEN POSITION 2,2:PRINT "SEPARATE NUM 

BER AND UNIT BY A COMMA":GOTO 1530 
EN 1520 POSITION 2,2:PRINT "UNEXPECTED ER 

ROR tt";ERR 
XK 1530 POSITION 2,3:PRINT "ANYKEY^CONTIN 

UE" 
YD 1535 POSITION 2,4:PRINT "<CTRL> ■ E ■ =MEN 

U" 
TC 1540 OPEN tt2,4,0,"K:":GET tt2,C:CL0SE U 

2 
OS 1550 IF C=5 THEN GOTO MENU 
BL 1560 GOSUB CLEARSCRIGOTO TEST 
OP 1597 REM *** RECORD INDEX LISTING *** 
UH 160O TRAP 1675 
NU 1605 GOSUB PAD5ECT 
FK 1610 OPEN ttl, 8,8,"DiINDEX.FIL l< 
HD 1620 OPEN tt2,4,0,"D:DATA.FIL" 
AA 1630 NOTE tt2, SECT, CHAR 
EI 1635 INPUT tt2;NAME$ 
SU 1640 INPUT »2;NUM$ 
YG 1645 INPUT »2; UNITS 
ZO 1650 INPUT »2;CAL$ 
CE 1655 PRINT ttl;NAME$ 
KK 1660 PRINT ttl;SECT 
BC 1665 PRINT ttl;CHAR 
SC 1670 GOTO 1630 
TN 1675 IF PEEKC195)=136 THEN CLOSE ttl:CL 

05E tt2 
BJ 1680 RETURN 

ZD 1697 REM *K* RECORD DATA FOR ITEM *** 
NH 1700 POSITION 2,3:PRINT "NUMBER, UNIT: " 

;:INPUT NUM,UNIT$:NUMS=STR$CNUM) 
OB 1710 POSITION 2,4:PRINT "CAL : "; :INPUT 

CAL:CAL$=STR$CCAL) 
KG 1720 PRINT ttl;ITEM$ 
AY 1725 GOSUB PADDATA 
OK 1730 PRINT ttl;NUM$ 
UE 1740 PRINT ttl;UNIT$ 
XI 1750 PRINT ttl;CAL$ 
AO 1755 NOTE ttl, SECT, CHAR 
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BF 1760 RETURN 

BB 1797 REM *** GET MEW DATA FOR ITEM *** 

OF 1800 POSITION 2,4:PRINT "NUMBER, UNIT= 

";VALCNUM$) ;" ";UNIT$ 
05 1810 POSITION 2,5:PRINT "CHANGE TO:";: 

INPUT NUM, UNITS :NUM$::STRSCNUM) 
ZA 1820 POSITION 2,6:PRINT "CALORIES^ ";V 

ALCCALS) 
VU 1825 POSITION 2,7:PRINT "CHANGE TO: "; 

: INPUT CAL:CALS=5TRSCCAL) 
ftY 1830 RETURN 

JE 1847 REM XXXK WRITE REVISED DATA XXXX 
QD 1850 OPEN 81, 12, O, "D : DATA . FIL" 
UN 1860 POINT 81, SECT tl) , CHAR CI) 
KH 1870 PRINT 81; ITEMS 
BP 1875 G05UB PADDATA 
RB 1880 PRINT 81; HUMS 
MV 1890 PRINT 81;UNITS 
WX 1900 PRINT 81;CAL$ 
DM 1910 CLOSE 81:RETURN 

DX 1947 REM XXXXX PAD ITEM FIELD XXXXX 
RB 1950 LI=LENCITEM$) 
OK 1955 ITEMS CLI+1, 25) ^BLANKS 
BJ 1960 RETURN 

DB 1977 REM *** PAD SECT/CHAR FIELDS *** 
RR 1980 LTH=LENCSECT$) 
ZR 1985 IF LTH = 2 THEN SECTS 12, 3) =SECT$ : SE 



CTSC1 


QW 


1990 




CTStl 


JD 


1995 


flZ 


2000 




AR$C1 


JP 


2005 




ARSC1 


AD 


2010 


UW 


2037 


CX 


2040 


ZU 


2045 


XM 


2050 


RM 


2055 


AF 


2060 




11,13 


ND 


2065 




CI, 2) 


FQ 


2070 


FC 


2075 


KU 


2080 


MB 


2085 


BT 


2090 


BV 


2095 



,1)="0" 

IF LTH=1 THEN SECTS C3, 3) =SECTS : SE 

,2)="00" 

LTH=LENCCHARS) 

IF LTH=2 THEN CHARS C2, 3) =CHARS : CH 

,1)="0" 

IF LTH=1 THEN CHARS C3, 3) =CHAR$ : CH 

,2)="00" 

RETURN 

REM XXXXX PAD DATA FIELDS XXXXXX 

LU=LENCUNIT$) 

UNITS CLU+1, 15) ^BLANKS 

LTH=LENCNUMS) 

IF UALCNUMSXl THEN GOTO 2070 

IF LTH=2 THEN NUMS C2, 3) = NUMS : NUMS 
-., 6 ,. 

IF LTH=1 THEN NUMS C3, 3) =NUMS : NUMS 

= "00" 

LTH=LENCCALS) 

TEMP$=CALS:CAL$="000" 

IF LTH=2 THEN CAL$ C2, 3) =TEMP$ 

IF LTH=1 THEN CAL$ C3, 3) =TEMP$ 

CAL$=TEMP$ 

RETURN 
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ULTIMATE STORAGE 

Here's the perfect way to organize your ANALOG Computing library— sturdy, custom-made binders 
and files in deep blue leatherette with embossed silver lettering. Silver labels are included to index 
by volume and year. One binder or a box-style file is all you'll need to accommodate 12 issues (1 
year) of ANALOG Computing— all the games, programs, tutorials and utilities that you want handy. 




The ANALOG Computing binder opens flat for easy reading and reference. They're economically 
priced at only $9.95 each— 3 binders for $27.95 or 6 binders for $52.95. 

The ANALOG Computing file is attractive and compact, holding 12 issues for easy access. Files 
are available for only $7.95 each— 3 files for $21.95 or 6 files for $39.95. 

Add $1.00 (outside U.S., add $2.50) per case/binder for postage and handling — U.S. funds only. 



Call Toll Free 1-800-972-5858 



Charge orders only, minimum $15.00 



Enclosed is my check or money order in the amount of $ . 

Please send me: ANALOG Computing files ANALOG Computing binders 

PLEASE PRINT. 

Name: . 



Address: (No P.O. Boxes) 
City: 



State: 



Zip Code: 



send your order to Jesse Jones Industries 

DEFT. ACOM, 499 East Erie Ave, Philadelphia, PA 19134 
PA residents, add 6% sales tax 



VISA 



Satisfaction guaranteed or money refunded. 
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by Jim Ehninger 



A month ago, a friend of mine was having problems 
with his disks. His little brother was playing his games 
without permission; his sister was reading his AtariWriter 
files, and his dad replaced one of his BASIC files with a 
program that said, "Happy April Fool's Day." He came to 
me for help. 

1 created a short AUTORUN.SYS file that required a cer- 
tian keypress before you could run DUP.SYS. But they 
could still get in by booting another disk, then reading 
the directory from there. "Give me time," I said. A week 
later, PassWord was created. 

So what will it do? 

Type in Listing 1 (the BASIC listing). Do not type in 
the assembly language source code; this is for advanced 
programmers to look over. Save the program. Insert a blank 
disk (or a disk that may be formatted) and execute the pro- 
gram, using item P at the first prompt. The current DOS 
in memory will be written to the disk, then the program 
will ask you for a password. A hint: use a short, one-word 
password that's easy to type in, easy to remember, and isn't 
too obvious. 

After the program is through, it will reboot and let you 
try out your new, protected disk. I won't guarantee it will 
work for people like Tom Hudson or Kyle Peacock, but it 
will probably keep your family and friends out. 



Any questions? 

The following are some questions you may have about 
PassWord. First, how does it work? The program works 
by moving the disk directory (normally sector 361) to a 
different location. When you try to boot another disk and 
read the directory, you don't see a list of the files on that 
disk. Therefore, we have the protection we want. 

Can someone else boot their PassWord disk and "get 
into" my disk? No, I thought of that, too. On almost all disks 
the directory is in a different place. The odds of two Pass- 
Word programs being the same are about 1 in 256. 

Sounds good. How can I transfer DOS files to my Pass- 
Word disk? There are two methods I've found: (1) use the 
COPY+ 4.0 program supplied in Listing 1; or (2) type 
POKE 1955,89:POKE 1956,228 to toggle DOS access, load 
the file, then POKE 1955,0:POKE 3956,4 to return to Pass- 
Word access, and save the program. 

Great! You've just given away the secret. No, they still 
have to boot up your disk before those POKEs will work. 
And please be careful when using these POKEs. 

COPY+ 4.0. 

The subroutine at the end of Listing 1 is a utility that 
enables you to copy any DOS file to your PassWord disk, 
and vice versa. You must boot your PassWord disk up to 
run this program. Otherwise, your computer will lock up 
and take a short trip to the Twilight Zone. 

The COPY+ 4.0 program (yes, there were four versions) 
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and the PassWord program should be saved as one pro- 
gram. It's best to copy this program onto your PassWord 
disk if you're going to be doing a lot of copying (say, us- 
ing it as a programming disk). Please specify this at the 
prompt. 

If you have any questions about PassWord or COPY + 
4.0, or if you make up some new utilities for PassWord, 
write to the Reader Comment section. Users with 300- 
baud modems can leave me a message on StarGate Earth 
Bulletin Board System: (801) 272-1518, 10 p.m. to 7 a.m., 
seven days a week, ATASCII and full duplex. Have fun 
with your PassWord. H 

Jim Ehninger has owned an Atari 800 since 1982. Jim 
enjoys telecommunications and programming 6502 ma- 
chine language and BASIC. He enjoys more cerebral games 
and is a remote SYSOP ofWally World BBS, 801-255-9345. 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 



Listing 1. 
BASIC listing. 



ilB 10 REM 

GU 20 REM 

IG 30 OPEN tt2,12,0, 

SO 40 GRAPHICS 0:5E 

TB 50 OPEN 83,4,0," 

30J ,D$C10O0) .D5K 

) , H0$ C128) , PS t2) 
YD 55 ? "CP)/W prog 

4.0 :"; :INPUT 82 

LIB 1000:END 
EX 60 K1=PEEK (58404 

PEEKC58374)+1:P2 

1) :PSC2)=CHR$CP2 
MT 70 FOR A = l TO 12 

A 
CT 80 ? "P/W DISK B 

INGER" 
HR 90 ? "Cc) 1985 A 
AS 100 ? " INSERT A 

dp no ? 'mEHIE-T 

TENTS" 
GM 120 ? "ON THAT D 
QX 130 ? "PRESS RET 
KP 140 GET B3,D:IF 
DZ 150 ? "DF0RMATTI 
UP 160 XI0 254, ttl, 
PE 170 ? "HCREATING 
VG 180 OPEN ttl, 8,0, 
DL 190 FOR A=l TO 3 

SE ttl 
RS 200 ? "DHRITING 
HX 210 OPEN ttl, 8,0, 
CP 211 ? "WOULD YOU 

HE":? "THE DISK 

.SYS,":? "AUTORU 
HS 212 INPUT tt2,PW$ 
5N 213 SGE=l:GOSUB 
VW 220 ? "QWHAT WOU 

ORD":? "TO BE?": 
MF 230 ? "NO CONTRO 

E!+" 
EP 240 ? "PASSWORD: 
JO 250 IF LEHCPW$)> 

EaCEEfl "iGOT0 24 
OH 260 FOR A=l TO L 



P/W - BY: JIN EHNINGER 
FOR ANALOG COMPUTING 



■E:" 

TCOLOR 2,0,0 
K:":DIM D05SCI28) .PWSC 
INV$C5) ,B$(128) , ASC255 
,ME$C10) 

rant, or CG) o to C0PY+ 
,P$:IF P$="G" THEN G05 

)+l:K2=PEEKC58405) :P1= 
PEEKC58375) :PS=CHRSCP 
} 
8:N0$CA)=CHR5C0) :NEKT 



00T MAKER 



BY JIM EHN 



NALOG COMPUTINGS" 
DISK INTO DRIVE 1.+" 
HIS WILL ERASE ALL CON 

XSK1+" 

URN : " ' 

D0155 THEN 140 

NG DISK. . ."; 

,0,"D:" 

SPACE. . ."; 
"D : SPACE. PW" 
80:PUT ttl, fl! NEXT A:CL0 

DOS. SYS. . ."; 
,, D:D0S.5YS":CL0SE ttl:? 
LIKE OTHER FILES ON T 
BESIDES DOS? ti.e. DUP 
N.SYS, etc. J <Y/N>"; 
:IF PWS="N" THEN 220 
1000:SGE=0 

LD YOU LIKE YOUR PA55W 
? "20 CHARACTERS MAX." 
L CHARACTERS OR INVERS 

";:INPUT tt2 ,PWS 

2o then ? "aaBuaiEBai 


ENCPW$) 



ob 

'.8 



PO 270 IF ASCCPW$CA,A))>31 AND A5CCPWSCA, 
A) ) <125 THEN NEXT A:G0T0 290 

WE 280 ? ■ i i:[iMHi]:t«:ii]^n:M:r:TH<i<:t--Mi]:»<:i l J^:t.i 

LiUJ":G0T0 240 
MI 290 ? "YOUR PASSWORD IS:":PWS:? "IS TH 

IS CORRECT? ";:INPUT tt2,AS:IF A$C1,1)< 

>"Y" THEN 220 
AW 30O ? "ISPLEASE STAND BY - INITIALIZING 

DATA. .":RE5T0RE : SE=0 
AX 310 FOR A=l TO 442 
JN 320 READ D : SE=SE+D : DS CA) =CHRS CD) : NEKT 

AiFOR A = l TO 70:DSC442+A)=CHR$C0) :NEXT 
A 
VT 330 D$C14,15)=PS:D$C191,i92)=P$:D$C206 

,207)=PS:D$C225,226)=PS:D$C259,260)=P$ 

:DSC313,314)=P$:D$C352,353)=P$ 
PX 340 DSC158,158)=CHR$lKi) : D$ C159, 159) =C 

HRSCK2) 
XE 350 IF SE<>42148 THEN ? "ERROR IN DATA 

STATEMENTS. ":END 
PM 360 FOR A=l TO LEN CPWS) : D$ C229+A, 229+A 

)=CHR$CA5CCPW$CA,A))*2) :NEXT A 
EV 370 NS=INTCRNDCl)*245)+8:D$t427,427)=C 

HRSCNS) 
TO 380 ? "^WRITING PROGRAM..." 
FU 390 DSK=768:SE=4:TT=1:RW=87 
FL 40O D5KINU$="h 5E* M 
PR 410 POKE DSK+1,1 
VU 420 B$=D$CTT,TT+127) :G0SUB 440:TT=TT+1 

28:SE=5E+1:IF 5E<8 THEN 420 

430 GOTO 660 

440 AD=ADRCBS) :P0KE DSK+2,RW 
MZ 450 HIGH=INT CAD/256) : L0W=AD- CHIGH*256) 
OJ 460 POKE DSK+4,L0W:P0KE DSK+5,HIGH 
SX 470 SHI=INTCSE/256) :SL0=SE-CSHI«256) 
ST 480 POKE D5K+10,SL0:P0KE DSK+11,SHI 
UO 490 A=USRCADRCD5KINUS)) :IF PEEKCDSK+3) 

<>1 THEN ? "QSTATUS ERROR- ";PEEKCDSK+ 

3) :G0TO 440 
ZB 500 RETURN 
JT 510 DATA 162,0,142,198,2,189,162,8,240 

,21,134,255,32,164,246,162,16,160,0,13 

6,208,253,202,208,248,166,255 
FM 520 DATA 232,76,133,8,76,23,9,125,80,4 

7,87,32,45,32,40,99,41,32,49,57,56,53, 

32,65,78,65,76,79,71,32,67,79 
TD 530 DATA 77, 80, 85, 84, 73, 78, 71, 155, 80, 8 

2,79,71,82,65,77,32,66,89,58,32,74,73, 

77,32,69,72,78,73,78,71,69,82 
BO 540 DATA 155,80,65,83,83,87,79,82,68,5 

8,30,30,30,30,30,30,30,30,30,255,255,2 

55,255,255,157,157,157,157,157 
HR 550 DATA 157,157,157,157,157,29,29,29, 

29,29,29,29,29,29,29,31,31,31,31,31,31 

,31,31,31,31,31,31,31,31,0,0 
jy 560 DATA 169,0,141,22,9,32,226,246,201 

,155,240,86,201,126,240,46,24,201,32,1 

44,240,201,125,176,236,141,21 
CA 570 DATA 9,24,173,22,9,201,20,144,8,16 

9,253,32,164,246,76,28,9,173,21,9,174, 

22,9,157,2,1,32,164,246,238,22 
GK 580 DATA 9,76,28,9,173,22,9,248,194,20 

6,22,9,169,126,32,164,246,76,28,9,32,3 

2,32,32,32,32,32,32,32 
6L 590 DATA 32,32,32,32,32,32,32,32,32,32 

,32,169,155,174,22,9,157,2,1,32,164,24 

6,162,0,24,126,101,9,232 
UL 600 DATA 224,21,208,247,162,0,139,101; 

9,221,2,1,208,4,232,76,145,9,189,101,9 

,201,16,208,18,189,2,1,201,155 
QA 610 DATA 208,3,76,213,9,162,0,189,192, 

9,240,249,134,255,32,164,246,166,255,2 

32,76,176,9,155,253,126,80,65 
HL 620 DATA 83,83,87,79,82,68,32,68,69,78 

,73,69,68, 33,155,0,162,0,189,231, 9,240 

,28,134,255,32,164,246,166,255 
SI 630 DATA 232,76,215,9, 155,66.111, U'.l, A 
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16,105,110,103,32,68,79,83,46,46,46,15 

5,0,169,4,141,164,7,169,0,141 

640 DATA 163,7,162,8,189,18,10,157,0,4 

,232,224,40,208,245,76,20,7,24,173,10, 

3,261,105,144,28,201,112,176 
GN 650 DATA 24,173,11,3,281,1,208,17,24,1 

73,10,3,105,0,141,10,3,173,11,3,105,0, 

141,11,3,32,89,228,96 

660 SE=361:RW=82:G05UB 440:LET D05$=B$ 

:RW=87 

670 B$=N0$:5E=361:G05UB 440 

680 FOR J=361+N5 TO 368+N5 : 5E=J : B$=N0$ 

IG05UB 440 

690 NEXT J 
AG 70O SE=361+5N:B$=D0S$:G05UB 440 
EM 710 B$=N0$:F0R A = l TO 128 STEP 16:B$(A 

,A)="B":NEXT A 
SV 720 B$(6,16)="ThiS Disk " : B$ (22, 32) =" 

has been '■ :B$ C38,48)="EQTQ3ii33 »;b 

$(54,64)="By: P/W! ! ! " 

FI 730 B$(70,80)=" ":B$C86,96)= 

CO 1985 ":B$Ci02,il2)="By: ANALOG 



ME 



ME 

RV 
MB 

GV 



ND 
KV 



P/W COPY+ VERSION 4.0 
BY JIM EHNINGER 4/7/85 



" : B$ C118) ^-'COMPUTING 
740 SE=361:G0SUB 440 

750 B$(6,16)="| — |":B$C22,32)=" 

Prograw by :":BS 138,48J="J. Ehninger":B 

$(54,64)=" " 

VJ 760 B$(70 ,80)=" EQQEHi " : B$ (86, 96) = 
■■ l:H=MiH ":B$C102,128)=" 

NT 770 SE=362:G0SUB 440 

KI 780 B$=D0S$:B$(1,1)="G":5E=361+N5:G05U 

B 440 
LU 790 SE=1:RW=82:G05UB 440 : RW=87 : B$ (2, 2) 

=CHR$(7) :B$(8,9)="Ei":G0SUB 440.-GOSUB 

830 
HZ 800 ? "OK! YOU ARE ALL READY! REMEMB 

ER":? "YOUR PA55W0RD! ";PW$:? 
ZP 810 ? "PRE55 RETURN TO BOOT P/W DISK:" 

;:GET «3,D:IF D<>155 THEN 810 
RW 820 ANAL0G=USR(58487) 
UZ 830 SE=360:RW=82:G05UB 440 
AD 840 A=56+(NS/8) : ME$="¥*" : B$ (A, A+l) =ME$ 
BY 850 B$(4,4)=CHR$(ASC(B$C4,4))-16) 
XZ 860 SE=360:RW=87:GOSUB 440:RETURN 
XU 1000 REM 
MS 1010 REM 

1020 D1=PEEK(1955) : D2=PEEK (1956) 

1040 GRAPHICS Q:SETCOLOR 2,0.0:DIM BUF 

FER$(FRE(0)-50O),WOW$(3O),FN$(30),KITE 

$(10) 
XZ 1050 ? "FiP/W COPY+ 4.0 - BY JIM EHNING 

ER":TRAP 1290 
CV 1060 ? "(c) 1985 ANALOG COMPUTING":? 
►A. DOS to P/W" 
>B. P/W to DOS" 
►C. EXIT TO P/W"!? 
►SELECT:"; SINPUT »2,KITE$ 
KC 11 00 IF KITE $<"A" OR KITE$>"C" THEN ? 

"►ULlBjlMifl":GOTO 1090 
XQ 1110 ? "^FILE:"; :INPUT 82,W0W$:FN$="Di 

:":FN$(4)=W0W$ 
RJ 1120 ? "INSERT SOURCE DISK, HIT RETURN 

": INPUT tt2,W0WS 
OB 1125 IF SGE THEN 1150 
MR 1130 IF KITE$="A" THEN POKE 1955,89:P0 

KE 1956,228 
AZ 1140 IF KITE$="B" THEN POKE 1955,0:P0K 

E 1956,4 
NX 1150 OPEN tti,4,0,FN$ 
XX 1160 A$(255)=" ": BUFFERS::"" 
DH 1170 TRAP 1175:XI0 7,«1, 4, O, A$ : BUFFERS 

(LEN(BUFFER$)+1)=A$:G0T0 1170 
EE 1175 IF PEEK(195)=5 THEN ? "PROGRAM TO 

LARGE. "'.END 
UH 1180 IF PEEK(195) <>136 THEN 1290 
RC 1190 TRAP 1290IIF PEEK (856) THEN BUFFE 

R$(LEN (BUFFERS) +1)=A$(1, PEEK (856)) 



RX 

MO 



JR 1070 ? 
OM 1080 ? 
AO 1085 ? 
KZ 1090 •> 



HH 


120 


CT 


121 




":l 


PZ 


121 


XG 


122 




KE 


AI 


123 




E 1 


Oft 


124 


LK 


125 


VN 


126 




cop 




$(1 


XR 


127 


UZ 


128 


TW 


129 



O CLOSE Ol 

O ? "INSERT DESTINATION, HIT RETURN 

NPUT »2,W0W$ 

5 IF SGE THEN 1240 

O IF KITE$="B" THEN POKE 1955,89:P0 

1956,228 

IF KITE$="A" THEN POKE 1955,0:P0K 

956,4 

OPEN ttl,8,0.FN$ 

O ? ttl;BUFFER$; :CL05E ttl 

? "COPY+ COMPLETE!":? "(A)nother 

y or CE)xit:"; :INPUT tt2,W0W$:IF WOW 

,1)="A" THEN 1050 

O POKE 1955,Dl:P0KE 1956, D2 

TRAP 4O00O:RETURN 

O ? "COPY+ ERROR- ";PEEK(195) :END 





Listing 2 






Assembly listing. 


0100 


.OPT NOLIST 




0110 


*=$880 




0120 
0130 , 






+ - — 




0140 , 


IP/W ASSEMBLY 


LISTING! 


0150 , 


By: Jin Ehninger 


0160 , 
0170 , 


|U5ES ASM/EDITOR CtM) | 






0180 j 






0190 , 


OS EQUATES! 




0200 , 






0210 GETKEY =$F6E2 




0220 C0L0R2 =$02C6 




0230 PRINTCHR=$F6A4 




0240 D05UEC =$07A2 




0250 CHARS =$0102 




0260 BOOTDOS =$0714 




0270 , 






0280 


LDX »$00 


;Get rid of 


0290 


STX C0L0R2 


;that color! 


0300 PRINT 


;Read the 


0310 


LDA DATA,X 


; welcohte 


0320 


BEQ STARGATE 


[Message, and 


0330 


STX $FF 


;print it to 


0340 


J5R PRINTCHR 


;the screen. 


0350 


LDX tt$10 


;put in a delay 


0360 WHX 


;so it looks 


0370 


LDY tt$OQ 


; neat. 


0380 WHY 


;lsn't this 


0390 


DEY 


; just like 


0400 


BNE WHY 


WarGaMes? 


0410 


DEX 


Are we through 


0420 


BNE WHX 


di lly-dallying 


0430 


LDX $FF 


around? 


0440 


INX 


check. . . 


0450 


JMP PRINT 


no, keep going 


0460 STARGATE 


YES! lets get 


0470 


JMP OTAY 


started. . . 


0480 DATA 


Data for M5G 


0490 


.BYTE 125, "P/W 


— II 


0500 


.BYTE "(C) 198! 


5 ANALOG " 


0510 


.BYTE "COMPUTII 


4G",155 


0520 


.BYTE "PROGRAM 


BY: " 


0530 


.BYTE "JIM EHN] 


[NGER",155 


0540 


.BYTE "PASSWORI 


>:" 


0550 


.BYTE " 


ii 


0560 


.BYTE " 


ii 


0570 TEMP BRK 


Tewp location 


0580 HUMS BRK 


8 of chars. 


0590 ; 






0600 OTAY 


Put zip into 


0610 


LDA tt$00 j 


the nuMber 


0620 


STA HUMS 


count location 


0630 JIMCO ; 
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0640 


JSR 


GETKEY 


Get a key. 


8650 


CMP 


tt$9B 


is it RETURN? 


0660 


BEQ 


HEDONE 


YES-Check P/W 


0670 


CMP 


tt$7E 


is it BACK S? 


0680 


BEQ 


GETDOWN 


YES-DecreMent ! 


0690 


CLC 




Clear the way! 


0700 


CMP 


tt$28 


is it < 32? 


0710 


BCC 


JIMCO 


YES! Branch! 


0720 


CMP 


H$7D 


is it >124? 


0730 


BC5 


JIMCO 


YES! Leave! 


0740 


STA 


TEMP 


It's OK. 


0750 


CLC 




Kill the FLAG! 


0760 


LDA 


HUMS 


Get the anount 


0770 


CMP 


8$14 , 


is it over 20? 


0780 


BCC 


LESS20 


if not, branch 


0790 


LDA 


»$FD j 


YES! Scream 


O80O 


JSR 


PRINTCHR 


at hiH! CTRL-2 


0810 


JMP 


JIMCO , 


Another key . . . 


0820 


LE5520 , 


It is ok, add 


0830 


LDA 


TEMP , 


the key onto 


0840 


LDX 


HUMS , 


the list of 


0850 


STA 


CHARS, X i 


keys already 


0860 


JSR 


PRINTCHR 


entered, print 


0870 


INC 


NUMS 


it, and INC! 


0880 


JMP 


JIMCO 


get another. . . 


0890 


GETDOWN 


Pressed BACK 5 


0900 


LDA 


NUMS j 


Is he < 0? 


0910 


BEQ 


JIMCO , 


YES! get key. . 


0920 


DEC 


NUMS , 


Down baby! 


0930 


LDA 


»$7E 


;Erase the 


0940 


JSR 


PRINTCHR 


Mistake. 


0950 


JMP 


JIMCO 




0960 


HISPW 


;His Password! 


0970 


.BYTE " 


ii 


098O 


HEDONE 


[Pressed RETURN 


0990 


LDA 


»59B 


[Erase all the 


1000 


LDX 


NUMS 


;old entries 


1010 


STA 


CHARS, X 


;he wanted 


1020 


JSR 


PRINTCHR 


; erased. 


1030 


LDX 


tt$0O 


[Decode the 


1040 


CHANGE 


[Message so we 


1050 


CLC 




;can decipher 


1060 


ROR 


HISPW, X 


jwhat is trying 


1070 


INK 




;to say! 


1080 


CPU 


tt$15 


[We through? 


1090 


BNE 


CHANGE 


[No-keep going! 


1100 


LDX 


tt$00 


[Now let's see 


1110 


OUTTA 


;if the Man 


1120 


LDA 


HI5PW,X 


;at the keys 



1130 


CMP CHARS, X 


1140 


BNE LATER 


1150 


INX 


1160 


JMP OUTTA 


1170 


LATER 


1180 


LDA HI5PW,X 


1190 


CMP 8$FF 


1200 


BNE YELL 


1210 


LDA CHARS, X 


1220 


CMP tt$9B 


1230 


BNE YELL 


1240 


JMP ITSHIM 


1250 


YELL 


1260 


LDX tt$00 


1270 


SCREAM 


1280 


LDA BALL0UT,X 


1290 


BEQ YELL 


1300 


STX $FF 


I310 


JSR PRINTCHR 


1320 


LDX $FF 


1330 


INX 


1340 


JMP SCREAM 


1350 


BALLOUT 


1360 


.BYTE 155,253, 


1370 


.BYTE "PASSWOR 


1380 


.BYTE "DENIED! 


1390 


ITSHIM 


1400 


LDX tt$0O 


1410 


HELLO 


1420 


LDA WELCOME, X 


1430 


BEQ BOOTDOS 


1440 


STX $FF 


1450 


JSR PRINTCHR 


1460 


LDX $FF 


1470 


INX 


1480 


JMP HELLO 


1490 


WELCOME 


1500 


.BYTE 155, "BOO 


1510 


.BYTE "DOS. . ." 


1520 


BOOTDOS 


1530 


LDA tt$0O 


1540 


STA DOSVEC+1 


1550 


LDA tt$04 


1560 


STA D05UEC 


1570 


JMP BOOTDOS 


1580 




1590 


END. 



won the prize! 

if not, later. 

keep going. . . 

Check it! 

Let's see 

where we ended 

up. Is it FF? 

NO! A FAKE! 

Mabye so . . 

The RETURN! 

iMpersonator ! 

YES! Welcome! 

Allright, so 

you are the 

intruder? 

ScreaM at hiM! 

Shoot hiM at 

dawn! Attack 

Men! Two ARMS, 

Two Legs! 

SCREAM AT HIM! 

Don't let hiM 

escape ! ! ! 
126 
D " 

,155,0 

Hey guy! 

Let's insure 

hiM by telling 

hiM we are 

booting up the 

Disk. 

He is waiting 

for the 

READY prOMpt . . 

Keep printing! 

The data: 
ting " 
,155,0 

;Change DOS to 
; jump to our 
;routine every 
; tiMe ! 

;And we boot! 
;L8R days. . . 
;ModeMs call: 
', C801J 272-1518 
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scr ee*vs 



by Donald E. Glover 



When I purchased my Atari 1020 printer/plotter, I was 
disappointed that no program was provided to plot on pa- 
per screens drawn in the standard Atari graphics modes. 
The Dumpl020 gives you such a screen dump routine 
(DUMP1020), written in BASIC. This article includes in- 
structions for the program and examples of its use with 
programs published in ANALOG Computing. 

Program logic. 

(1) The graphics mode is determined by a variable 
set by the user. 

(2) The user is given the option of just outlining 
(fast) or completely filling (slower) pixels not set to 
background color (color 0). 

(3) An appropriate frame is drawn. 

(4) Each pixel of each row on the screen is tested 
for a non-background color. If a non-background col- 
or is found, the pixel is outlined or filled on paper, 
depending on the decision made in (2), above. Note 
that the screen is completely scanned once for each 
color. This is more efficient than scanning the screen 
once and checking for all three colors, because of the 
length of time required to change pens. 

A BASIC screen dump. 

After entering Dumpl020 (Listing 1), it should be LISTed 
to disk or tape. It can then be merged with a main pro- 
gram by using the BASIC command, ENTER. Dumpl020, 
by starting at Line 32000 and using variable names which 



begin with ZZ, is designed to be merged into most BA- 
SIC programs without conflict. (Dumpl020 can be easily 
renumbered by a renumber utility, or the RENUM com- 
mand in BASIC XL, if the main program has line num- 
bers within its range.) 

The picture on the TV screen is plotted on paper by call- 
ing the plotting subroutine (GOSUB 32013) from the ap- 
propriate part of the main program. Before you make this 
call, the variable ZZFILL must be set to 1 if you desire 
to fill the pixels, or if you do not. Next ZZMODE should 
be set to a legal BASIC screen mode (3-8, 19-24, 15 or 31). 
Note that mode 15(7+) is supported, even on non-XL com- 
puters (see the example below). 

Finally, the initialization subroutine (GOSUB 32087) 
must be called prior to the plotting subroutine. This call 
should be made at the beginning of the main program. 
If the initialization routine is called at some other point, 
it may move BASIC arrays which the main program as- 
sumes are fixed. This could cause problems, if the main 
program is to continue running after the plot has finished. 

Examples. 

The BASIC version of Dumpl020 is demonstrated us- 
ing the program Space Assault, found in issue 13. After 
you've loaded Space Assault, add the following lines: 

1050 GOSUB 32087 

1355 ZZM0DE=7+16:ZZFILL=i: GOSUB 32013 

Now, merge Dumpl020 with the Space Assault program 

by using the ENTER command, then run the program. 

When the joystick trigger is pressed to shoot an enemy 

ship, the screen (including the "fission beam") will be fro- 
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3 Dumpl020 



continued 



zen and dumped to the 1020 plotter. The player shapes 
will, of course, not be plotted. 

The program from the article Graphics 7+ Handler 
(from issue 11 of ANALOG Computing is used to demon- 
strate Dumpl020 in graphics mode 15. After loading that 
program, add the following lines: 

10 G05UB 32087 

410 IF PEEK(764)<>255 THEN ZZFILL=1:ZZ 

M0DE=15+16:G0SUB 32013IEND 

Again, merge Dumpl020 with this program and run it. 
When you wish to plot the display on paper, hit the SPACE 
BAR. 

Speeding things up. 

BASIC is slow. For example, it will take four to five 
minutes before the first pixel is plotted for Space Assault. 
However, if the main program doesn't use Lines through 
8 (or if Lines 0-8 are just comments and can be deleted), 
the following modifications to Dumpl020 will make the 
plotting subroutine run much faster. 

(1) Renumber Lines 32024 to 32030 of the plotting 
subroutine to 1 through 7. 

(2) Change the new Line 2 to: 

2 IF IF ZZMODE-15 THEM G0SUB 32073 
:G0T0 4 

(3) Add the following lines: 

GOTO Cfirst line of Main progran 
-1000 for SPACE ASSAULT) 
8 RETURN 
32024 G0SUB 1 

(4) Delete Lines 32025 through 32030. 
The program, as modified here, works in a way identi- 
cal to the original. However, the modification moves the 
most often executed inner loop of Dumpl020's three nest- 
ed FOR loops to the beginning, which greatly speeds up 
execution. (With BASIC XL from OSS, the above modifi- 
cations are unnecessary. Simply run the program in the 
FAST mode.) 

Program enhancements. 

These routines can be added to any program using stan- 
dard graphics modes, but beware of programs that start 
with a standard display list, then change it. An interest- 
ing modification would have to be Dumpl020 switch 
graphics modes and screen memory locations as dictated 
by the commands in such nonstandard display lists. 

Also, if more pen colors were available, the program 
could easily be modified to work in graphics modes 9, 10 
and 11. The program would have to stop every four colors, 
to allow the pens to be changed. 

Finally, Dumpl020 could be expanded to work in graph- 
ics modes 1 and 2. This would require using the data in 
screen memory as pointers into the character memory. 
With these modifications, the program could be turned 
into a generalized plotting routine, which would plot vir- 
tually any display created on the Atari. H 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 



Listing 1. 
BASIC listing. 

UK 32000 REM MXXXXXXXXXMXXXXXXXXXXXXXXXX 
XM 32001 REM * * 

GT 32002 REM * DUMP1020 * 

HY 32003 REM * BY DONALD GLOVER * 
YK 32004 REM * * 

UJ 32005 REM xxxxxxxxxxxxxxxxxxxxxxxxxxx 
FH 32006 REM ZZFILL=1 — FILL PIXELS 
0.A 32007 REM ZZFILL=0 — NO FILL 
HE 32008 REM ZZM0DE=3, 4 , 5, 6, 7, 8, 15 OR THE 

SE MODES+16 
PE 32009 REM MUST INITIALIZE BEFORE CALLI 

NG MAIN PROGRAM USING G0SUB 32082 
GT 32010 REM ZZ0,ZZN AND ZZS ARE THE SAME 
AS 0LDC0L0R,NEHC0L0R AND SCREENC0L0R 

IN ACTION! PROGRAM 
ON 32011 REM ALL OTHER VARIABLES ARE THE 

SAME AS THE ACTION! VARIABLES PREFIXED 
BY ZZ 
DZ 32012 REM EXCEPT FOR ZZA-ZZF, ZZYINCYP0 

S AND ZZXINCXP05 WHICH WERE NEEDED TO 

HOLD INTERMEDIATE CALCULATIONS 
EB 32013 REM xxxxxx HAIN PROGRAM — CALL AS 

A SUBROUTINE XXXXXXXMXXXXXXX 
KA 32014 G05UB 32105 : REM SET UP SCREEN PA 

RAMETERS 
PC 32015 G05UB 32080:REM INITIALIZE PL0TT 

ER 
MP 32016 IF ZZM0DE=15 THEN G0SUB 32118:RE 

M GRAPHICS 15C7+) ONLY 
IE 32017 G0SUB 32113:REM DRAW FRAME 
HJ 32018 FOR ZZS = 1 TO ZZNUMC0L0RS CZZM0DE) 

-l:REM FOR ALL COLORS 
XF 32019 IF ZZM0DE=15 THEN POKE 89,INTCZZ 

5CREENADD/256) :P0KE 88, ZZSCREENADD-256 

*PEEK(89) :REM GRAPHICS 15C7+) ONLY 
W5 32020 PRINT tt2 ; "C" j ZZS ! REM PICK PROPER 

COLOR PEN 
FK 32021 FOR ZZYP0S=0 TO ZZYMAX : REM FOR A 

LL ROWS 
GT 32022 IF ZZM0DE=15 THEN G05UB 32077:GO 

TO 32024:REM GRAPHICS 15 C7+) 
RV 32023 LOCATE 0,ZZYP0S,ZZ0 
AS 32024 FOR ZZXP05=0 TO ZZXMAX-HREM FOR 

ALL COLUMNS EXCEPT LAST 
HG 32025 IF ZZM0DE=15 THEN G05UB 32073:G0 

TO 32027:REM GRAPHICS 15(7+) 
KP 32026 LOCATE ZZXPOS, ZZYP05, ZZN 
PG 32027 IF ZZN=ZZS THEN GOSUB 32041:REM 

THIS IS CURRENT COLOR 
DB 32028 IF CZZNOZZO) AND CZZ0=ZZ5) THEN 
GOSUB 32046:REM WE NEED TO DRAW A BOX 
YT 32029 ZZOzZZN 
UI 32030 NEXT ZZXPOS 
TG 32031 REM NOW DO LAST COLUMN WHICH IS 

SPECIAL 
DG 32032 IF ZZM0DE=15 THEN GOSUB 32073:G0 

TO 32034:REM GRAPHICS 15C7+) 
CE 32033 LOCATE ZZXMAX , ZZYP05 , ZZN 
OU 32034 IF ZZN=ZZS THEN GOSUB 32041IREM 

THIS IS CURRENT COLOR 
DE 32035 IF ZZ0=ZZ5 OR ZZN=ZZS THEN GOSUB 

32046: REM WE NEED TO DRAW A BOX 
YI 32036 ZZ0=ZZN 
XF 32037 NEXT ZZYPOS 
BD 32038 NEXT ZZS 
XN 32039 IF ZZM0DE=15 THEN POKE 89,INT(ZZ 

SCREENADD/256) SPOKE 88 , ZZSCREENADD-256 

*PEEK £89) ! REM GRAPHICS 15 C7+) ONLY 
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DT 32040 RETURN 

RA 32041 REM XXXXXXXXX SUBROUTINE EXECUTED 
IF PIXEL COLOR 15 CURRENT CQLOR XXXXXX 

** 
IV 32042 ZZXINCXPOS=ZZXINC*ZZXPOS:ZZYINCY 

POS^ZZYINCKZZYPOS 
MY 32043 IF ZZXPOS=0 THEN PRINT 82;"M ,, ;0, 

",";-ZZYINCYP05:ZZX5TART=0 
GH 32044 IF ZZOOZZS THEN PRINT 82; ,, M";ZZ 

XINCXPOS^'/'j-ZZYINCYPOSlZZXSTflRTrZZXI 

NC*ZZXPOS 
E5 32045 RETURN 
NP 32046 REM XXXXXXXXXXX 5UBR0UTINE TO DRA 

W BQX XXXXXXXXXXXXXX 
MS 32047 ZZXINCXP0SrZZXINC*ZZXP05:ZZYINCY 

P05=ZZYINC*ZZYP0S:ZZA=CZZN=ZZSJ : ZZB= CZ 

ZXPOS=ZZXMAX) 
NH 32048 IF ZZB AND ZZA THEN GOTO 32053 
LK 32049 REM NOT LAST COLUMN SO DRAW NORM 

AL BOX 
YC 32050 PRINT 82; "D"; ZZXINCXPOS ; ", "; -ZZY 

INCYPOS 
BM 32051 PRINT 82; "D"; ZZXINCXPOS; ", ■■; -ZZY 

INCYPOS-ZZYLENGTH 
FD 32052 GOTO 32056 
QP 32053 REM LAST COLUMN SO DRAW SPECIAL 

BOX 
UF 32054 PRINT 82; "D"; ZZXINCXP05+ZZXLENGT 

H + j_ — ZZYINCYPOS 

MF 32055'PRINT 82; "D"j ZZXINCXPOS+ZZXLENGT 

H+l;",";-ZZYINCYPOS-ZZYLENGTH 
EO 32056 PRINT 82; "D"; ZZXSTART ; " , " ; -ZZYIN 

CYPOS-ZZYLENGTH 
II 32057 PRINT 82; "D"; ZZXSTART ; " , " ; -ZZYIN 

CYP05 
AO 32058 IF ZZFILL=1 THEN GOSUB 32062 : REM 

FILL PIXEL IF FLAG SET 
OP 32059 PRINT 82; "M"; ZZXSTART; ","; -ZZYIN 

CYPOS 
EB 32060 RETURN 
RS 32061 REM XXXXXXXXX SUBROUTINE TO FILL 

PIXEL XXXXXXXXXX 
YJ 32062 FOR ZZLINE=0 TO ZZXINC 
OS 32063 PRINT 82; "D"; ZZXSTART; ","; -ZZYIN 

CYPOS-ZZLINE 
VR 32064 IF ZZB AND ZZA THEN GOTO 32068 
KU 32065 REM NOT LAST COLUMN 
UM 32066 PRINT 82 ; "D" ; ZZXINCXPOS; ","j -ZZY 

INCYPOS-ZZLINE 
DS 32067 GOTO 32070 
TH 32068 REM LAST COLUMN 
WW 32069 PRINT 82; "D"; ZZXINCXPOS+ZZXLENGT 

H + l;'V;-ZZYINCYP05-ZZLINE 
BR 32070 NEXT ZZLINE 
EK 32071 RETURN 
DE 32072 REM XXXXXXXXX SPECIAL LOCATE ROUT 

INE FOR GRAPHICS 15 C7+} XXXXXXXXXXX 
YO 32073 IF ZZYPOS^ZZCHANGE THEN POKE 88, 

ZZLOMOD:POKE 89,ZZHIM0D 
XI 32074 LOCATE ZZXPOS, ZZYPOS-ZZCHANGE* tZ 

ZYP05>=ZZCHANGEJ ,ZZN 
FE 32075 RETURN 
OT 32076 REM *****SPECIAL LOCATE ROUTINE 

FOR GRAPHICS 15C7+) — ZZXPOS=0 ONLY**** 
ZI 32077 IF ZZYPOS=ZZCHANGE THEN POKE 88, 

ZZLOMOD:POKE 89,ZZHIM0D 
LF 32078 LOCATE O, ZZYPOS-ZZCHANGE* CZZYPOS 

>=ZZCHANGE) ,ZZO 
FY 32079 RETURN 
MQ 3208O REM XXXXXXXX 5UBR0UTINE TO INITIA 

LIZE PLOTTER IN GRAPHICS MODE******** 
UH 32081 CLOSE 82 : REM JUST TO MAKE SURE 
SG 32882 OPEN 82 , 8, O, "P : " : REM OPEN CHANNE 

L TO 1020 
YK 32083 PRINT 82; CHR$ C27) ; CHR$ C7J : REM PR 

INTER IN GRAPHICS MODE 
FN 32084 PRINT 82 J "H" : PRINT 82;"I":REM HO 

ME AND INIT PLOTTER 



KC 32085 PRINT 82; "M"; O; ", ■■; : REM MOVE PE 

N TO 0,0 
FN 32086 RETURN 
NC 32087 REM XXXXXXXXXXXXX SUBROUTINE TO I 

NITIALIZE ARRAYS XXXXXXXXXXXXXXXXXX 
ER 32088 DIM ZZMODEXMAX tl5) , ZZMODEYMAX I 15 

) ,ZZM0DEYINCtl5) , ZZMODEXINC tl5) ,ZZNUMC 

0L0R5C15) 
01 32089 DIM ZZADDF0RFULLC15J 
PC 32090 REM FILL ARRAYS 
UG 32091 RESTORE 32098 
X5 32092 FOR ZZTMODE=0 TO 15 
KP 32093 READ ZZA, ZZB, ZZC, ZZD, ZZE, ZZF 
YG 32094 ZZMODEXMAX CZZTMODE) =ZZA : ZZMODEYI 

NCCZZTMODE)=ZZB 
DV 32095 ZZMODEYMAXCZZTMODE)=ZZC:ZZMODEXI 

NCtZZTMODE)=ZZD 
OY 32096 ZZNUMCOLORS(ZZTMODE)=ZZE:ZZADDF0 

RFULLCZZTMODEJ=ZZF 
FR 32097 NEXT ZZTMODE 
WT 32098 REM DATA FOR ARRAYS 
SK 32099 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

,0,0,0,0 

WA 32100 DATA 39,12,19,12,4,4,79,6,39,6,2 

,8,79,6,39,6,4,8,159,3,79,3,2,16 
IH 32101 DATA 159,3,79,3,4,16,319,1,159,1 

2 32 
RI 32102 DATA 0, O, 0, 0, 0, 0, O, 0, O, O, 0, O, 0, 

,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0 

GB 32103 DATA 159,2,159,3,4,32 

OZ 32104 RESTORE :RETURN 

EM 32105 REM XXXXXXXXXX SUBROUTINE TO SET 

UP SCREEN PARAMETERS XXXXXXXXXXXXXX 
TM 32106 IF ZZM0DE>15 THEN ZZMODE=ZZMODE- 

16:ZZFULL=1:REM CHECK FOR FULL SCREEN 

MODE 
LY 32107 ZZXMAX=ZZMODEXMAXtZZMODEJ 
OL 32108 ZZYMAX=ZZMODEYMAXCZZMODE)+ZZFULL 

*ZZADDFORFULLCZZMODE) 
MI 32109 ZZCHANGE=CZZYMAX+i)/2:REM USED T 

FIND MIDDLE OF SCREEN FOR GRAPHICS 7 

+ 
JH 32110 ZZXINC=ZZMODEXINC(ZZMODE) :ZZYINC 

=ZZMODEYINCtZZMODE) 
MR 32111 ZZXLENGTH=ZZXINC-l:ZZYLENGTH=ZZY 

INC-l:REM LENGTH OF BOX SIDES 
DU 32112 RETURN 
DB 32113 REM XXXXXXXXXXX SUBRQUTINE TO DRA 

W FRAME XXXXXXXXXXXXX 
FK 32114 PRINT 82; "C"; O : REM BLACK PEN FOR 
FRAME 

rf 32115 print 82; "m"; 0; ", ■■; : print 82;"d 
";zzxmax*zzxinc+zzxinc; ,, ,";0 

kz 32116 print 82; "d"; zzxmax*zzxinc+zzxin 
c;",";-zzymax*zzyinc-zzyinc sprint 82;" 
d";o;"*";-zzymax*zzyinc-zzyinc 

lx 32117 print 82; "b"; o; ", ■■; : return 

kj 32118 rem xxxxxxxxx subroutine used to 
fool basic locate command for graphics 

15C7+) XXXXXXXXXXXXX 
Yd 32119 ZZSCREENADD=PEEKC88J+256*PEEKC89 

) 
RS 32120 ZZMODADD=ZZSCREENADD+ZZCHANGE*40 
SB 32121 ZZHIM0D=INT(ZZM0DADD/256) 
BK 32122 ZZL0M0D=ZZM0DADD-ZZHIM0D*256 
ZS 32123 IF ZZM0DE=15 THEN POKE 87,7 : REM 

FOOL BASIC 
EI 32124 RETURN 
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ANALOG Computing 
Writers' Guidelines 



Make sure your submission 
gets the attention it deserves. 



Many of the following suggestions are applicable to all computer magazines. They assist us in the typesetting ac- 
curacy of your submission and in the speed of publication. ANALOG Computing, a monthly magazine, publishes 
new articles, programs and reviews concerning only Atari home computers and their related hardware and soft- 
ware. We have published many first-time authors, so by following these guidelines, you may soon find your article 
and byline in the pages of ANALOG Computing. 



1. The upper left-hand corner of the first page should con- 
tain your name, address, telephone number and the date 
of your submission. Important: when you submit an article 
to us, you must indicate whether or not it is a simultaneous 
submission. A simultaneous submission is a photocopied 
manuscript submitted to more than one magazine at a time. 
Many magazines do not appreciate this practice (we are 
among them) and view any photocopied manuscripts wari- 
ly. We do accept manuscripts text printed on a word proces- 
sor. Your article should also be submitted on disk, along with 
any programs which the article requires. 

2. The title of the article should be underlined, starting half- 
way down the first page. 

3. If your article is a product review, please include the fol- 
lowing information, in lieu of a title: the product's official 
name; the product's author (if available); the company pro- 
ducing and/or distributing it; the company's address and 
phone; memory or hardware requirements; and suggested 
retail price. 

4. The following pages should be typed normally (double 
spaced), except that, in the upper right-hand corner, the ti- 
tle of the article should be prominent, along with your last 
name and the page number (e.g., Disk/Jones/3). 

5. If your article has program listings of between five and 
twenty lines, you may include them within the text. Longer 
programs should be included with your article, but it is not 
essential. However, it is imperative that we have a copy of 
the program on disk. The disk should be labeled with the 
author's name and the title of the article or program. 

6. It is much easier for our readers to type in your program 
if you use CHR$(X) values instead of cursor manipulators 
to format your output. In some cases, it may be necessary 
to include special control characters to create special dis- 
plays. In these cases, control characters are allowable. 



7. The printers used for ANALOG'S program listings will ac- 
cept all Atari control, escape and inverse video characters. 
BASIC programs containing machine language subroutines 
in string variables should use DATA statements to contain 
the machine language numeric values. Authors should avoid 
using the assignment of a string variable to a complex ma- 
chine language string literal. For example, (ML$="mj+7") 
could confuse readers. Authors should provide commented 
assembly source code listings for any machine language 
subroutines used in their programs. Any machine language 
game programs should be located in the lowest possible 
amount of memory. 

8. Standard manuscript format — rules such as double spac- 
ing, one-inch margins all around the text, standard typing 
paper and typing only on one side of the paper— should be 
followed when submitting an article or review to ANALOG 
Computing. The pages of your submission should be pa- 
per clipped together, not stapled. 



9. The best way to write for us is by studying previous is- 
sues. For instance, reviews of hardware and software should 
list the information requested in paragraph 3. Your article 
should be written in continuity with ANALOG'S style — the 
acronym BASIC is always all caps, as are keys like RETURN 
and BREAK, while names of other languages are spelled 
in various ways (Pascal, FORTH, assembly). 



10. ANALOG Computing pays between $25 and $390 for 
published articles. The standard rate of pay is $65 per type- 
set page, up to six pages total (not including space taken 
for advertisements, art and photos). Articles over that length 
will be paid the flat maximum fee. If we do determine that 
an article may be over eight magazine pages, it may be spYit 
into two parts or sent back to the author for editing. 



Send all articles, reviews or program submissions to: ANALOG Computing Magazine, Submissions Department, 
P.O. Box 23, Worcester, MA 01603. 
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by Gary Heitz 



Some time ago, I was typing in a magazine program. 
Upon checking my typing, I found several mistakes. There 
had been many variables used which were quite long and 
cryptic. Most of the typing errors occurred on these 
variables. 

I decided I needed a program that would allow for 
programmable keys, to help me accurately type these list- 
ings. Easy Type is just that — with a few extras. 

Easy Type has nine programmable keys and four pro- 
grammed keys. The programmable keys are available to 
you, to hold a string of any characters you desire, up to 
17 characters in length. 

When typing, you can access the string you want by 
pressing the ESCAPE key and a number. The correct num- 
ber is displayed on-screen, along with the contents of the 
string. For example, if you programmed key 1 to contain 
X =USR( THR32DFP), then hit ESC 1, Easy Type would 
print your string on the screen at the current cursor posi- 
tion. This only takes two keystrokes, and you don't have 
to worry about your accuracy. 

Because the key number to press is displayed on-screen 
along with the string, all you have to remember is to type 
the ESC key first. If you forget, don't go hunting for this 
article. The screen reminds you that you should hit the 
ESC key and then the number. 

As mentioned above, there are four programmed keys. 



They are ESC-0 (zero), ESC-A, ESC-I and ESC-D. The in- 
structions for each of these are also shown on the screen. 

Pressing ESC and will clear the screen and display 
Easy Type's menu. 

In the menu, choice number one is "Start DATA state- 
ments." The word DATA will be printed after each suc- 
ceeding line number entered if you select this option. 
You'll be asked which type of data you're going to enter: 
decimal, hexadecimal, or other. If you answer decimal, 
what you type will be checked by a machine language 
subroutine. It will see that you didn't accidentally type 
a letter, or any other key not appropriate to a decimal data 
statement. The editing keys will still function properly. 

If you choose hexadecimal, the subroutine will make 
sure you're typing only characters acceptable to a hexa- 
decimal data statement. 

Choosing "other" will result in no checking. The word 
DATA will simply be added after each new line number. 

Option number two is "Stop DATA statements." It does 
just that. The word DATA will no longer be printed after 
each new line number. 

The third choice is "Start/Alter line numbering." If you 
pick this option, Easy Type will ask for the starting line 
number and the increment used between lines. Type these 
in, and all succeeding lines will be automatically num- 
bered for you. 

Option number four is "Stop line numbering." Choos- 
ing this will cancel the automatic line-numbering feature. 
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Easy Type 



continued 



Choice number five is "Make a programmable key." 
You'll be asked to input the characters you desire for the 
next available programmable key. You don't have to enter 
all nine programmable keys at once. You may come back 
later and enter more. 

Option number six is "Save program." By using this fea- 
ture, you can save the entire program onto tape or disk 
without having to BREAK away from the program. 

Menu selection number seven is "Exit menu." Use this 
option to leave the menu and continue typing your pro- 
gram. 

This leaves us with three more programmed keys: ESC- 
A, ESC-I and ESC-D. 

Let's say you type in a line and hit RETURN. You then 
see that you made a syntax error, or you want to change 
or copy part of that line. Press ESC and A , and the last 
line will be displayed. Alter the line and/or line number, 
then hit RETURN. 

The next programmed key is ESC-I. Some magazine 
programs are numbered in an orderly fashion, with even 
increments between line numbers. Many aren't. If you've 
chosen menu item three (automatic line numbering) and 
need to skip some line numbers, type ESC-I and the next 
line number will appear. 

In the same vein, if your increment is ten, and the pro- 
gram you're entering has a line number whose last digit 
is a five, use ESC-D. Your line number will be decrement- 
ed. Hit the BACKSPACE a couple of times, hit the num- 
ber 5, and be on your way. 

That's about all there is. I hope you find Easy Type not 
only easy, but also a time-saving aid to accuracy. There 
may be several things you'd like to see added to Easy Type. 
Please alter it to your needs. The program is made to work 
for you — not you for it. B 

Gary Heitz bought his first Atari computer in 1982. 
Through ANALOG Computing, he has learned to program 
in BASIC and assembly language. 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 



Listing 1. 
BASIC listing. 

WK 32OO0 CLR :C0=0:DIM D$tl 5i , P $ C1861 ,TEM 

PSC17J ,LtllJ ,F$(15> :P$="H=CII] ,, :P$(5>=CH 

R$(155J :F0R I=C0 TO 9 
HM 32010 LII>=CQ:NEXT I : L tl) =5 : D$=CHR$ (15 

6) :D$C15J=D$:D$C2J=D$:GRAPHICS C0:P0KE 
559,C0:P0KE 710,178:POKE 712,178 
LP 32020 RE5T0RE 32591:F0R 1=1 TO 133:REA 

D IN:P0KE 1535+1, IN : NEXT I : IN=32190 : ME 

NU=32370 : G OTO 32080 
AF 32030 rem ):;:::»n ■«!:!:»:;:;:; 
GD 32040 INPUT TEMP$ : IF TEMP$="MENU" THEN 

POP :PKEYS=PKEYS-1:G0T0 MENU 
M0 32050 P$CLENCP$3+i)=TEMP$:P${LENCP$J+l 

)=CHR$(155) :LtPKEY5+l)=LENlP$J : RETURN 
PL 32060 PKEYS=PKEY5+1:IF PKEYS>9 THEN PK 

EYS=9:G0T0 MENU 



NF 32070 ? "ESC-";PKEYS; M M ;:G05UB 32030: 
GOTO 32060 

ky 32080 rem i:i:t:«Ji =m-»:j:j:! 

KZ 32090 ? CHR$tl25) :P0KE 82, CO : POSITION 
CO, 5:? "1 M ;CHR$C27) ;CHR$C156) ;"UJJjh£ 

EEEHPS JE l" ; chr$ C273 ; chr$ ti56 i ; 
JB 32100 ? "■ MHM J4--1hJiHI'H=U " : PQSITIQ 



N CO CO 
CA 32110 TRAP 32140 : X=PKEYS : IF PKEYS>4 TH 

EN K = 4 
NX 32120 FOR I = C0 TO X:? I; M M jPSCLCIJ+i, 

L(I+1J-1) :NEXT I 
YM 32130 IF PKEYS>X THEN POKE 82,20:P0SIT 

ION 20,C0:F0R 1=5 TO PKEYS: 

LCIJ+i,LCI+i)-l> :NEXT I 
FD 32140 TRAP 40000:P0KE 82, 2 : X=USR C1590) 

: LINE=PEEK C1021) +PEEK C1022J*256 
B5 32150 CLOSE ttl:0PEN tti, 4, CO, "K" : POSITI 

ON 2,6:LI5T LINE:P05ITI0N CQ,11: L=C0 
SK 32160 ? "■";CHR$C27) ;CHR$C156) 
!CHR$C27) ; CHR$ 1156) ; "f~ 



Line 

ter. use ESC A 



!;■■ ";P$t 



Last 
To al 



BZ 32170 POSITION 2,12:? : IF NUM THEN ? S 
TART;" ■■; : START=START+INC 
32180 IF TYPE AND NUM THEN ? "DATA "; 
REM 



NH 

Q5 32190 



a 



AD 32200 POKE 559,34:GET tti,KEY:IF KEY=27 
THEN 32290 
32210 IF TYPE AND NUM=C0 AND L=C0 AND 
KEY=32 THEN ? " DATA ";:L=1:G0T0 IN 

OM 32220 IF KEY=155 THEN POKE 559,C0:G0T0 
32260 

AC 32230 IF KEY=28 AND PEEKI84X14 THEN G 
0T0 IN 

RJ 32240 IF TYPE=1 OR TYPE=2 THEN 32580 

JM 32250 ? CH R$CKEY1 ; :G0T0 IN 

so 32260 rem i:i:i:m.-T^i f j=i '»:*:*:! 

CC 32270 POSITION 2,20:? "CONT" : POSITION 

C0,ll:P0KE 842,13:5T0P 
EG 32280 POKE 842, 12 : POSITION CO, 7:? D$:G 

0T0 32140 



PK 



JI 32290 REM i^^'1 Bg33 

DZ 32300 GET ttl,KEY:IF KEY = 27 THEN ? CHR$ 

C27) ;CHR$ C27) ; :G0T0 IN 
GX 32310 IF KEY=48 THEN START=START~INC : G 

0T0 MENU 
RE 32320 IF KEY=73 THEN 32170 
SJ 32330 IF KEY=68 THEN START=5TART-INC-I 

NC:G0T0 32170 
RO 32340 IF KEY=65 THEN POSITION 2,12:LIS 

T LINE:P0SITI0N 2,12:? : START=LINE+INC 

:G0T0 IN 
HU 32350 IF KEY<49 OR KEY>PKEYS+57 THEN ? 

CHR$C27>; :G0T0 32250 
YL 32360 TRAP IN : KEY=KEY~48 : ? P$ CL CKEYJ +1 

■ LCKEY + U-1) ; :TRAP 400 00:GQTQ IN 
JC 32370 REM ffi'MiufllKiTTi 
HO 32380 POKE 752,1:P0KE 201,7:? CHR$fi25 

JiSlF NUM THEN POSITION CO, CO:? " HHJI 



ESC I to Increment the line number 



OA 32390 IF NUM 



ement the line number 



SM 32400 POSITION 17,2:? "| 

Q Start DATA statements 

JC 32410 ? :? ,"0 Stop DAT 

:? ,"0 Start/Alter lin 

:? ,"□ Stop line number 
IG 32420 ? :? ,"0 Make a p 

■■:? :? ,"0 Save program 
Menu":P05ITI0N 14,18 
ZM 32430 ? "Your choice? 

EY=KEY-48!IF KEY<>1 AND 

<>4 THEN POKE 752, CO 
NH 32440 IF KEY=1 THEN 325 
JD 32450 IF KEY=2 THEN TYP 
RE 32460 IF KEY=3 THEN ? 

REMENT"; STRAP 32460 : INP 

AP 40000:NUM=1 



G33H":? :? ," 

A statements":? 
e numbering":? 
ing" 

rogrammable key 
? :? ,"Q Exit 

? :GET «1,KEY:K 
KEY<>2 AND KEY 

40 

E = C0 

Enter START, INC 

UT START, INC.-TR 
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HE 32476 IF KEY = 4 THEN NUM=CO 
VF 32480 IF KEY = 5 THEN ? CHR$fl253:? :? " 
Type SanS to go to the MENU.":? : 

GOTO 32060 
KJ 32490 IF KEY=6 THEN GOSUB 32520:CL05E 

81.-5AVE F$:0PEN ttl,4,C0,"K" 
HK 32500 IF KEY = 7 THEN POKE 559,C0:G0T0 3 

2080 
BP 32510 GOTO MENU 
SQ 32520 IF LENCF$) THEN RETURN 
GP 32530 POSITION 2,21:? "Dtt: Fi lenane . Ext 

";:INPUT F $:RETURN 
RH 32540 REM uuVM Til (ViSS 
ZP 32550 POSITION 2,20:? "Is the data in: 

":? "B Decinal'V'H Hexadeciwal Oth 

er" 
CD 32560 GET 81, KEY : TYPE=KEY-48 : IF TYPE<1 
OR TYPE>3 THEN ? CHR$ 1 253) : GOTO 32550 
OH 32570 H=18+ITYPE=2)*6:G0T0 MENU 
AR 32580 X=USRC1536,KEY,H) ! IF PEEK C204) T 

HEN 32250 
QJ 32590 ? CHRSC253); : GOTO IN 
RM 32591 DATA 104, 104, 104, 133, 203, 104, 104 

,168,169,0,133,204,185,29,6,197,203,24 

0,5,136,208,246,240,4,169,255,133 
FN 32592 DATA 204, 96, O, 28, 29 , 30, 31, 126 , 25 

4,255,44,48,49,58,51,52,53,54,55,56,57 

,65,66,67,68,69,70 
CH 32593 DATA 169,0,170,141,0,4,141,1,4,1 

41,253,3,141,254,3,165,136,133,203,165 

,137,133,204,160,1,177,203 
CM 32594 DATA 201,125,240,46,160,6,177,20 

3,141,253,3,200,177,203,141,254,3,238, 

0,4,173,6,4,208,3,238,1 
XV 32595 DATA 4,200,177,203,141,255,3,165 

,203,24,109,255,3,133,203,144,208,230, 

204,224,0,240,202,104,96 
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Get the Extra on disk! 



A special offer 
for Extra 
owners. . . 

2 DISKS 
for 
only 
$24.95 




All 

of the 

programs 

from 

An Atari 

8 -Bit Extra 

from ANALOG 

Computing. 



Ready to run, on two 
double-sided disks. 



From the magazine that 
always gives you something 
Extra 



Use the convenient card at the back of this book 
to order your disk version. 

Send for it now! 



■i^COMFUTINGJmmi 
P.O. BOX 23, WORCESTER, MA 01603 
(617) 892-9230 



Get the Extra on disk! 



A SPECIAL OFFER FOR EXTRA OWNERS 
2 DISKS — ONLY $24.95 

All the programs from An Atari 
8-Bit Extra from ANALOG 
Computing, ready to run, on 
two double-sided disks. 

Yes! Please send me the disk version. 

Name 



Street 



City. State 




Zip Code 



Exp. date 



□ Payment enclosed. □ Bill my Master Card or VISA (right). Sign 



MAGAZINE SUBSCRIPTIONS 



ANALOG ONLY 



ST-LOG ONLY 



ANALOG and ST-LOG 



□ 1 yr. (12 iss.) $28.00 D 1 yr (12 iss.) $28.00 ' 1 yr. (12 iss. each) . . .$42.00 

□ 2 yrs. (24 iss.) $52.00 □ 2 yrs. (24 iss.) $52.00 D 2 yrs. (24 iss. each) . $78.00 

□ 3 yrs. (36 iss.) . . .$76 00 C 3 yrs. (36 iss.) $76.00 □ 3 yrs. (36 iss. each) .$114.00 

CANADIAN & MEXICAN RATES (First Class) 

□ 1 yr. (12 iss.) $36.00 □ 1 yr. (12 iss.) $36.00 □ 1 yr. (12 iss. each) . . .$54.00 

D 2 yrs. (24 iss.) $68.00 □ 2 yrs. (24 iss.) $68.00 □ 2 yrs. (24 iss. each) $102.00 

□ 3 yrs. (36 iss.) . . . .$99.00 □ 3 yrs. (36 iss.) $99.00 L 3 yrs. (36 iss. each) $149,00 

FOREIGN RATES (Surface) 

C 1 yr. (12 iss.) $39.00 [ I 1 yr. (12 iss.) $39.00 L 1 yr. (12 iss.) $59.00 

D 2 yrs. (24 iss.) $72.00 2 yrs. (24 iss.) $72.00 2 yrs. (24 iss. each) .$112.00 

□ 3 yrs. (36 iss.) $104.00 3 yrs. (36 iss.) $104.00 C 3 yrs. (36 iss. each) .$165,00 



Check # 

_'_ Money Order # . 

MasterCard 

Exp. date 

Card No. 



VISA 



Name 



Address 

City _ 



State 



Zip 



PLEASE ALLOW 4 to 6 WEEKS FOR DELIVERY OF FIRST ISSUE. 



DISK/MAGAZINE SUBSCRIPTIONS 



ANALOG DISK 



ST-LOG DISK 



ANALOG and ST-LOG 



□ Vz yr. (6 iss.) $59.00 ' yr (6 iss.) $59.00 

J 1 yr. (12 iss.) . .$105.00 □ 1 yr. (12 iss.) $105.00 



□ V2 yr. (6 iss, each) . . $95.00 
C 1 yr. (12 iss each) . $15900 



i (6 iss.) 
□ 1 yr. (12 iss.) 



— CANADIAN & MEXICAN RATES (First Class) 

$69.00 I 1/2 yr. (6 iss.) $69.00 ' ;: yr. (6 iss. each) . $109,00 

$119.00 i 1 yr (12 iss.) $119.00 C 1 yr. (12 iss. each) . $179.00 



□ >/2 yr. (6 iss.) . 
I 1 yr. (12 iss.) 



$74.00 
.$126.00 



- FOREIGN RATES (Surface) - 

yr. (6 iss.) $74.00 

□ 1 yr (12 iss.) $126.00 



D Va yr. (6 iss. each) . $114 00 
D 1 yr (12 iss.) . . $189,00 



Check # 

Money Order # 

MasterCard 

Exp. date 

Card No. 



Bill me. 



VISA 



i lame 



Address 
City _ 



State . 



Zip 



PLEASE ALLOW 4 to 6 WEEKS FOR DELIVERY OF FIRST ISSUE. 
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When it comes to flying fighter planes 

IT 'S THE MAN- 
NOT THE MACHINE 

that makes the difference 







lection 



MIG Alley Ace: Thrilling head-to-head Sabre 
Jet aerial dog fighting includes single player 
flying mode, as well as two player competition. 

Hellcat Ace: Exciting 3-dimensional aerial 
combat over the Pacific in World War II. 
For one to four players. 

Air tfescue: Sensational assault chopper 
rescue raids for daring pilots in solo or team 
configuration. For one to eight players. 





See your local software 
retailer for (his and 
other exciting Micro- 
Prose products. Or call 
direct for MC/VISA 
' orders. 

The Top Gunner Collection Is 
available for Commodore 64 ® 
and Atari XL/XE computers at a 
suaaested retail of only $24.95, 

Screen shots frum Commodore 64 

raujetered IradamarKa of Commodore Elee 




intense concentration 

" ist reflexes 
illingness to take risks 
ood eye-hand coordination , 

If SV, ;V, 

_____ _H_________i 

pre 



Fly solo or in team configuration 

Maneuver in. 3-D space 

"See and avoid" techniques 

Advanced aerobatics: loops, rolls, G's, split S's 

Outfly the enemy 



"You'll experience the wind in your 
face and the intense dog fighting 
action of some of the world's most 
honored and respected combat 
aviators: the original stick-and-rudder 
fighter pilots!" 



MAJOR BILL STEALEY, 
U.SAF. Reserve 
President, MicroPros© 
(over 3,000 flying hours) 






(301)667-1)51 



